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Foreword 

Here, in this small volume, in easy-to-understand form, Paul 
Bunn has brought together all the essential information you’ll 
need to improve your programming techniques on the Atari 
computers. 

From making the most of the graphics, to using sound and 
the joysticks or paddle, you’ll find the vital addresses, the 
important locations, the programming tricks to get your Atari 
to do just about anything you want it to do. 

And if you just want a generous collection of programs, in 
ready-to-run form, you’ll also find them in this book. From 
BEETLE JUICE (you, as a small, red beetle, try to cross a 
busy street without being squashed) to DODGE ’EM (in 
which you use a joystick to drive your car around a maze, and 
avoid the computer’s car), there are programs for every taste 
and occasion. 

If you’ve come to the ‘What do I do now?’ stage with your Atari 
400 or 800, then you’re ready for Paul Bunn, and this book. 

TIM HARTNELL 

Author of THE PERSONAL COMPUTER GUIDE, THE ZX 
SPECTRUM EXPLORED and 49 EXPLOSIVE 
GAMES FOR THE ZX81 
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Chapter 1 : 
INTRODUCTION 
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This book is aimed at the computer user who has had his 
Atari computer for one or two months, is happily conversant 
with Atari Basic but wants to know his machine inside out. 
This book will provide that and a little bit extra. 

Mastering the Atari computer is as simple as mastering the 
three custom-built chips inside the computer. These chips 
are called ANTIC, POKEY and GTIA. All these chips are 
roughly as big as the 6502 microprocessor (in silicon area) 
giving three times as much computing power as the 6502 
alone. These chips relieve the 6502 to do all the computing, 
leaving the burden of graphics to fall on ANTIC and GTIA. 
The chip called POKEY handles all input/output including 
sound generation. 

I think that the combination of these four chips makes the 
Atari one of the best computers on the market today. My 
decision is based on the high resolution graphics, player- 
missile graphics, four voice sound playable through the tele¬ 
vision speaker, being able to have mixed graphics modes 
and the availability of the three GTIA graphics modes 9 10 
and 11 which offer 16 colors on the screen in high resolution 
graphics. 

If all this sounds like double-dutch to you now, do not worry, 
all will become crystal clear by the time you have finished 
reading this book. 

I am going to describe in detail how to use graphics including 
the GTIA graphics modes, all the input/output features of the 
Atari, the error reporting system, player-missile graphics, 
how to re-define the character set, how to design your own 
graphics modes, how to read the yellow consol keys, to read 
the games controllers, how to fully use the sound command 
and at the end of the book are some games programs and 
details of how they work. 
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Chapter 2 : 

BASICS OF GRAPHICS 
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This chapter covers the basics of using the Atari’s capabili¬ 
ties of high resolution graphics. Here is a list of the 
commands associated with graphics: 

SHORT DESCRIPTION ON 
THE FUNCTION OF THE 
COMMAND ABBREVIATION COMMAND 


Graphics 

GR. 

This selects the current 
graphics mode. 

Setcolor 

SE. 

Re-defines colors from the 
default values. 

Color 

C. 

Sets color for PLOT or 
DRAWTO 

Plot 

PL. 

Plots a single point. 

Drawto 

DR. 

Draws a line from the last 
PLOTed point to the point to 
the point specified. 

Position 

POS. 

Moves the invisible graphics 
cursor to the point specified. 

Locate 

LOC. 

Used to check the color of a 
certain point. 

XI0 (special 

X. 

Used in graphics to fill a 

fill) 


section or shape. 


A more detailed description follows:- 


17 



GRAPHICS 

This command is used to select one of the various graphics 
modes. Adding 16 to the number gives a full screen, adding 
32 prevents the screen from being cleared when the graphics 
command was entered. With graphics modes 9 10 and 11, 
the screen is automatically cleared when any text is printed 
(including any messages), even when the computer attempts 
to print READY. This can be overcome by entering the 
command POKE 703,4 after the GRAPHICS command. This 
will prevent any text from being printed. Unfortunately, if 
there is an error in the program, then you will not know what it 
is. This can be overcome by using this command with the 
error trapping program described in chapters. This program, 
instead of printing for example ERROR-6 AT LINE 80 would 
produce-Out of data at line 80. It also goes into graphics 
mode O (ordinary text mode), which clears the screen and 
sets all the colors back to the default conditions. 
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SETCOLOR 

This command is used to re-define any of the color registers 
from their default values. The SETCOLOR command is used 
as follows:- 

SETCOLOR Color register, Color Value, Luminosity 
Where the luminosity is an even number ranging from 0-14, 
where 0 is very dark and 14 very bright, a number of 6 or 8 is a 
good compromise and goes quite well with most back¬ 
grounds. 


Color Value 

True Color 

Color Value 

True Value 

0 

Grey/black 

8 

Deep blue 

1 

Light orange 

9 

Light blue 

2 

Orange 

10 

Turquoise 

3 

Red 

11 

Green/blue 

4 

Pink 

12 

Green 

5 

Purple 

13 

Yellow 

6 

Blue/purple 

14 

Orange/green 

7 

Blue 

15 

Light orange 


Memory can be saved by directly POKEing the correct value 
into the color registers. An example for SETCOLOR 2,3,4 
would be POKE 710,3*16+4 or in general POKE color 
register, color value* 16+ Luminance. “What are the color 
registers?” I hear you say. A list of them is given below:- 


Color Register Color Value 


708 1 

709 2 

710 3 

711 4 


SETCOLOR Value 
0 
1 
2 
3 


Note that no SETCOLOR command is needed if you wish to 
use the default colors. 
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COLOR 

This is a command to choose the color that will be used when 
a DRAWTO or PLOT statement is incurred. It is a little difficult 
to use the color statement at first because the SETCOLOR 
command does not use the same numbers as the COLOR 
statement. Experimenting should eventually give the desired 
results. 


PLOT 

This will produce a single pixel at the point specified. 
Example: PLOT 20,15 will produce a single point at 20,15 or 
20 along and down 15. The color will be the last color that was 
specified. Usually this command is used in conjunction with 
the DRAWTO command. 
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DRAWTO 

This will produce a line from the last point plotted to the 
co-ordinates specified, in the color last specified. A small 
program demonstating the GRAPHICS, COLOR, PLOT, 
SETCOLOR and DRAWTO commands, is listed below. 


10 REP1 44 UETIONSTRAT I ON PROGRAPI 44 
20 REF1 44 SHQHIN6 BASICS OF tt 
38 REP1 -ft- GRAPHICS.. 44 

40 DEG 

50 GRAPHICS 7+16 

60 SET COLOR 0,RHEK & >415+1,8 

70 SETCOLOR 1, RNEK 0 >4 15+1,8 

80 SETCOLOR 2, RNEK 0 >415+1,8 

90 COLOR INT< RND< 0>43>+l i SIZE=<RN£K 0>410 

>+5 

100 DX=< RHEK 0 >4128 >+20 
110 DV=( RHEK 0 >440 >+20 
120 HJH K=W TO 359 STEP 39 
130 X=< SINC R >4S IZE > 

140 V=< COS<R >4SIZE > 

150 PLOT DX,DV:DRAHTO DX+X,D¥+¥ 

169 NEXT R 

170 GOTO 90 
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Explanation of program: 

Line 40: Set all calculations to be in DEGrees. 

Line 60-80: Set the color registers 0-2 to random colors 
with a luminance of 8. 

Line 90: Chose the plotting color of one of the randomly 
picked setcolor values. 

Line 100-110: Chose where to position the star, x-y co¬ 
ordinates. 

Line 120: Set up FOR . . . NEXT loop for drawing star. 
Line 130-140: Procedure for working out the position from 
the co-ordinates where to plot. 

Line 150: Plot a single point at the centre of the star, and from 
there draw to the outside. 

Line 160: Continues the FOR + NEXT loop. 

Line 170: Makes the program an endless loop so that the 
program does another star. 
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POSITION 

This command simply moves the invisible graphics cursor to 
the point specified. This command is useful in the text modes. 
A program v/hich follows shows the usefulness of this:— 


10 ftfc.fi ## POSITION QEHONST ROT I ON ## 
20 GRAPHICS U 
30 POKE 752,1 
40 X=I NT < RND< 0 >#34 > 

50 V=INT<RNDC0 >#23 > 

60 POSITION X,V 
70 PRINT "ATARI 11 i 
80 GOTO 40 


An error will occur if you try and position outside the restricted 
range for the particular graphics mode. This command is 
more useful in graphics modes 1 and 2, where large text can 
be printed. 


LOCATE 

This is another useful command that checks the color of a 
certain point. The format is like LOCATE X,Y,D. Where X and 
Y are the X-Y co-ordinates and D is the variable where the 
data is stored. It will be a zero if it is the background color, and 
one if it is color 1 and so on. 
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XI0 (SPECIAL FILL) 

This command can be used to fill in shapes in a certain color. 
It is very useful but a little tricky to use at first. A program 
which draws squares of different sizes and colors is given 
below. An explanation of how it works is also given: 


10 KEPI XIO DEflONSTR AT I ON - SQUARES 

2Q GRAPHICS 7+16 

3U LET CGLGUR= I NT< RfCK a >23 >+1 

40 COLOR COLOUR 

5a SI ZL= I NT < RNJX 0 >210 >+5 

60 X=< RNDC a > 21 30 >+15 

70 V=<RND<0 >266>+15 

80 PLOT X+SIZE#V 

90 DRAWTO X+SIZE,V-SIZE 

100 DRAHTO X*V—SIZE 

110 POSITION X#V 

120 PUKE 765#COLOUR 

130 XIO 13##6#0#0#“S:" 

140 GOTO 30 


Line 20: 
Line 30: 
Line 40: 
Line 50: 
Line 60,70: 
Line 80: 
Line 90: 
Line 100: 
Line 110: 
Line 120: 

Line 130: 

Line 140: 


Puts computer in the required graphics mode. 
Select a random color. 

Set the color to the random value. 

Choose a random size. 

Choose random co-ordinates 
PLOT bottom right hand corner. 

DRAWTO top right hand corner. 

DRAWTO top left hand corner. 

Position bottom left hand corner. 

POKE location 765 with the color that the fill is 
to use. 

The XI0 command that makes the special 
FILL take place. 

Repeats the XI0 procedure 
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GTIA GRAPHICS MODES 

All the Atari computers in England are equipped with GTIA 
graphics modes and with a minimum of 16K memory. I 
believe that in America the minimum amount of memory is 
8K and that GTIA graphics modes are only available if it is 
upgraded to CTIA. 

The GTIA graphics modes all take up to 8K of memory, even 
more than graphics mode 8. But their graphics capability is 
enormous. They can provide up to 16 colors on the screen! 
All modes have a resolution of 80 x 192. 
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GRAPHICS MODE 9 

This graphics mode gives 16 colors all of the same color but 
at 16 different luminances. The background color sets the 
color of the background and of the colors with the varying 
luminances. A color statement from 0 to 15 may be used 
where 0 is background and 15 is near white. An excellent 
program which demonstrates the capabilities of graphics 
mode 9 is as follows. If you haven’t seen it before, type it in, 
type RUN and see the display. 


10 REF1 %% GTIfi PIGDE NINE DEP'iG. *# 

20 GRAPHICS 9 

30 SETCOLOR 4,6,0:2=16:0E6 :X=15 

40 2=2-1:COLOR Z:l=l 

50 FOR P=0 TO 360 STEP 20 

60 IF I THEN PLOT SIN<P>*X+40,COS<P>$40+ 

96:1=0:NEXT P 

70 DRfiWT0 SI N< P )*X+40 , COS< P >£40+96 
80 NEXT P 
90 X=X-1 

100 IF X<0 THEN 120 
110 GOTO 40 
120 GOTO 120 
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GRAPHICS MODE 10 

I personally think this is the best graphics mode offered by 
GTIA. It offers 9 completely different colors, one background 
and 8 plotting colors. Setting the color registers is easy-just 
poke the color registers with the color value multiplied by 16 
+ luminance required. POKE 704 with the background color 
and POKE 705-712 with colors desired for colors 1 to 8. A 
program called “Tennis Player” plots a tennis player in 
graphics mode 10. If you can be bothered to type all that data 
in, then it will astound you and your friends. 
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10 REf’l % A tennis player - Paul Bunn % 

£0 GRAPHICS 10sPOKE 704* 1 2£ 1 6+2: TRAP 140 

30 POKE 705*0!POKE 70S*13$16+12:POKE 707 

* 133:16+8: POKE 70S * 143:16+8 

40 POKE 709*14:^16+6 

50 POKE 710*4: POKE 711,33:16+4 

60 31=0 

70 READ A*B*C 

80 COLOR B:PLOT X*6:X=X+A:DRAWTO X*G:X=X 
-A 

90 PLOT X*6+i:X=X+A:DHAWT0 X*6+1 

i0@ IF C=1 THEN X=0:G=G+2 

110 GOTO 70 

120 GOTO 120 

i*j0 DAT A -j3 *0*0*7 *1*1 

140 DATA 37*0*0*10*1*1 

150 DATA 3b*0*0*12*l*l 

160 DATA 35*0*0*14*1*1 

170 DATt-i 34*0,0*15*1*1 

180 DATA 34*0*0*9*1*0*1*4*0*5*i*l 

190 DATA 34*0*0*5,1*0,5,4,0,6,1,1 

200 DATA 34*0*0*2*1*0*9*4*0*5*1*1 

210 DATA 34,0*0*1*1*0,10,4*0*3*5*0*1*1*1 

220 DATA 35*0*0*6*4*0*2*1*0*2*4*0*1*5*0* 

1*1*G*1*5*0*1*1*1 

230 DATA 36*0*0*2*1*0*2*4*0*2*1*0*3*4*0, 

1*5*0*1*1*0*1*5*0*1*1*1 

240 DATA 36*0*0*2*1*0*2*4,0*2*1*0*3*4*0* 

3*5*1 

£^30 DAT A 36*0*0*2*5*0*6*4*0*9*5*1 
260 DmTA 96*0*0*2*5*0*6*4*0*9*5*0*6*2*1 
2i 0 DATA 9f'*0*0*1 *5*0*6*4*0*4*5*0*9*2* 1 
280 DhTA 9i***0*0* 1 *5*0* 1 * 1 *0* 1 *4*0*2* 1 *0* 
1*4*0*5*5*0*11*2*1 

290 UATA 98*0*0*9*5*0*2*4*8*5*5*0*19*2*1 
300 DATA 37*0*0*1*2*0*5*4*0*5*5*0*14*2*1 
310 DATA 35*0*0*4*2*0*6*4*0,3*5*0*16*2*1 
320 DATA 32*0*0*9*2*0*4*4*0*3*5*0*17*2*1 
990 DATA 9 I* 0 * 0 *10*2*0*4*4*0*9*5*0*17*2* 
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0*2*4*i 

340 UflTfli 28*0*0*1j*2*0*J*4*0*2*5*0* 11 *£i* 

350 DOT hi 28*3*0*16*2*0*2*4*0*1*5*0*11*2* 
0*3*3*0*4*2*0*4*4*1 

369 DfiTfi 27*0*0*18*2*0*1*4*0*12*2*0*4*3* 

0*3*2*0*5*4* 1 _ ^ 

370 DfiTfi 27*0*8*31 *2*0*6*3*0* 1 *3*0*5*4* 1 
380 DfiTfi 26*0*0*31*2*0* 1 *-«*0*5*0*0-'-*- , *0 
,5,4*1 

380 DOTH 25*0*0*32*2*0*1*3*0*b*0*0* 1*5*0 

, G» * 4 *1 

408 DfiTfi 24*0*0*33*2*0*7*0*0*2*5*0*5*4* 1 
410 DOTH 24*0*0*9*2*0*1*3*0*22*2*0*8*0*0 
*2*5*0*5*4*1 

420 DfiTfi 23*0*0*9*2*0*3*3*0*20*2*0*1*3*0 
*9*0*0*1*5*0*5*4*1 

UfiTh 2J*0*0*3*2*0* 1 *J*0* 1 *0*0*2*13*0* 
19*2*3*2* j«* 3*9*8*0*2* 5* 3* 5*4* 1 
440D0TM 22*0*0*9*2*0*3*0*0*2*3*0*16*2*0 
6# 11 *0*0* 1*5*0*5*4* i 

450 UflTfl 21 *8*0*2*4*0*5*2*0*2*3*0*-^*0*0* 
4 *j*8* 11 *2*0*6*j* 0* i j* 0*0* 1 *5*0*4*4* 1 
460 DfiTfi 20*0*0*4*4*0*1*2*0*4*3*0*4*0*6* 

1 *2*0*8 *j* 3*5*2*3* f' * j« *0*14*0*0*1*5*0*4*4 
*1 

4f 0 UNTfi 1 o*0*0*b*4*0* 1 *5*0 *j* j*0*4*0*0 
1 * j**8*<j*2*8*i3* j>*0*9*2*3*6*i3*6* 14*0*0*1 * 
*0*4*4*1 

430 DHTfi 1 i *0*0*b*4*0*3*5*0*b*0*0*2*3*0* 

15*2*0* 4 * j« *0*16*0*0*4*4* 1 

430_ Dft114 1 j* 0*0*S*4*0*2*5*0** *0*0*-j*3*0* 

15*2*3*j*,i*0*l<' *0*0* 4*4*1 

500 DfiTfi 14*0*0*3*4*0*2*5*0* f *0*0*5*3*0* 

14*2*0*2*J*8* 13*0*0*4*4* i 

ti? 10 UHTfl 12*0*0*3*4*0*2*-‘3*0*6*0*0*jr*2*0* 

4*^*0*14*2*0*2*^*0*18*0*0*6*4*1 

5j0 DfiTfi 11*0*0*9*4*0*2*5*0*6*0*0*5*2*3* 

4*j*0*12*2*0*^*^*8*18*3*8* r*4*1 

530 DfiTR 11,1*0*9*4*0*1*5*0,7,1,0*5*2*0* 

4*j**0* 18*2*0*4*3*0*2*2*3* li 1 *1 *3* 8* 4*0* 1 * 
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ON 



1,1 

548 DfiTfi 18,8,0,8,4,0,2,5,0,7,0,0,7,2,0, 

18j6j0#^!f4f0j 1*0 

*0*4*4*1 

550 DHTfi 9*1*0*f*4*0*2*5*0*8*1*0*9*2*0*3 
* 3*0* t *2*0*2*3*0*6* 2*0* 18*1 *0*2*4*0*d* 1 * 
0*4*4*1 

560 ORTH 8*1*0*3*4*0*10*1*0*10*2*0*3*3*0 
*4*2*0*2*3*0*8*2*0*19*1*0*1*4*0*4*1*0*2* 

4*1 

51**0 DRTH { *0*0* { *4*0* 11 *0*0* 13*2*0*3*3*0 

*12*2*0*19*0*0*1*4*0*4*0*0*2*4*1 

580 DfiTfi 7*1*0*1*2*0*3*4*0*1*5*0*13*1*0* 

3*4*0*25*2*0*24* 1 *0*2*4* 1 

590 DOTH 6*1*0*3*2*0*2*5*0*13*1*0*5*4*0* 

24*2*£i*26* 1*1 

b00 DRTH 3*0*0*3*4*0*4*2*0*13*0*0*7*4*0* 
22 * 2*1 

610 UHTfi 1*1*0*6*4*0*2*2*0*14*1*0*8*4*0* 
12*2*0*3*4*0*2*5*0*4*2*0*2/* 1 * 1 
620 DhTR 1*1*0*7*4*0*6*1*0*4*^*0*4*1*0*1 
0*4*0*8*2*0*/ *4*0*4*5*0*1 *2*0*2*1*1 
6*30 DhTR 1 *0*0*3*4*0*2*5*0*2*4*0*4*0*0*/ 
*{ *0*3*0*0*10*4*0*^*2*0*8*4*0*4*5*1 
640 DRTfl 4*4*8*1*5*8*2*6*8*3*1*0*3*f *8*5 
*1* 0 *1*i*0*2*1*0*12*4*0*5*2*0*10*4*0*3*5 
* 0 *28 *1 * 1 

650 DRJfl 5*4,0*3*6*0*3*7,0*7*1*0*1*7*8*2 
*1*0*12*4*0*4*2*0*11*4*0*3*5*0*28*1 *1 
Sb0 DRTfl 1*0*0*5*4*0*1*6*0*2*7*0*9*0*0*1 
*7*0*1*0*0*13*4*0*2*2*0*1*0*0*1*2*0*11*4 
*0*2*5*1 

hi'0 DRTfl 3* 1 *0*2*4*O* 1 *0*0*2* { *0*9* 1 *0*2 
* 7*0*1*1*0*13*4*0*1*2*0*3*1*0*11*4*0*2*5 
*0*29*1*1 

680 DfiTH 5*1*0*2*7*0*10*0*0*2*7*0*14*4*0 
*4*1*0*11*4*0*1*5*0*30*1*1 
690 DfiTfi 4*5*0*1 * f *0*12*5*0*2*7*0*13*4*0 
*5*5*0*11*4*0*31*5*1 

i 00 DRTfl 4*0*0*1 * { *0*11*8*0*1 * { *0*1*0*0* 
13*4*0*7*0*0*10*4*1 

710 DATA 4*0*0*1*7*0*10*0*0*2*7*0,1*0*0* 
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12*4*0*8*0*0*10*4*1 

720 Dfijfl i*0f0#2#r*0*3*0*0*2*^*0*2*8*0*1 
1*4*0*3*0*8*9*4*1 

r i0 Dfllfl vi *0*0*1 *f *0*3*0*0*2*7 *0*-i*0*0*1 
0*4*0*9*8*0*9*4*1 

i40_ Dfllft 3*0*0*1 *{ *0*3*0*8*2* { *0*4*0*0*3 

*4*0*1*5*0*10*0*0*0*4*1 

750 DATA 3*0*0*1*7*0*6*0*0*3*7*0*5*0*8*1 

*5*0*6*4*0*Z*5*0*9*0*0*8*4*0*1*5*1 

f 60 DATA ^*0*0*1*^ *0*i^*0*0*4*7*0 *{ *0*0*2 

*5*8*4*4*0*4*5*0*S*0*0* { *4*0*2*5* 1 

{70 Dfllfl *^*0*0*0*f *0*10*0*0*3*5*0*3*0*8* 

5*4*0*4 *5* 1 

(80 DflTfl 13* 0 *0*3*5*0* t *0*0*6*4*0*4*5* 1 
730 Dfllfl 28*0*0*8*5*0*7*0*0*6*4*0*3*5*1 
300 DATA 21*0*0*7*5*0*7*0*8*5*4*0*4*5*1 
810 Dfllfl ^*6*0*6*5*0*6*0*0*6*4*0*^*5*1 
o20 Dfllfl 2^*0*0*6*5*0*6*0*0*b*4*0*2*5*l 
830 DflTfl 2^.*0*0*5*5*0*6*0*0*5*4*0*^*5* 1 
o40 DflTfl 23*0*0*5*5*0*5*0*0*6*4*0*2*5*1 
850 DATA 24*0*0*^*5*0*1*^*0*5*8*0*6*4*0* 
1*5*1 

3b0 Dfllfl 23*0*0*4*2*0*1*3*0*5*0*0*5*4*0* 

1*5*1 

870 Dfllfl 23*0*0*3*2*b*2*3*0*4*0*0*b*4*0* 
1*5*1 

888 DflTfl 22*0*0*3*2*0*3*3*0*4*0*0*5*4*0* 
i*5*i 

830 DflTfl 22*8*0*3*2*0*3*3*0*4*0*0*5*4*1 
300 Dfllfl 2l *0*0*4*2*0*-u»*^*0*^*0*0*5*4* 1 
310 Dfllfl 21*0*0*4*2*0*2*^*0*4*0*0*5*4*1 
920 Dfllfl 20*0*0*5*2*0*2*3*0*4*0*0*4*4*1 
330 DATA 20*0*0*b*2*0*l*3*0*3*0*8*5*4*l 
940 Dfllfl 21*0*0*5*2*0*1 *^*0*-^*0*0*l *2*0* 
3*4,1 

950 Dfllfl 21*0*0*4*2*0*2*3*0*2*0*0*3*2*0* 

1*3*1 

960 DflTfl 22*0*0*2,2*0*2*3*0*3*0*0*3*2*0* 
1*3*1 

370 DflTfl 22*0*0*2*2*0*1*3*0*4*0*0*2*2*0* 
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1,3,1 

980 DATA 23,8,0,2,2,0,1,3,1 
330 DOTH 28,0,0,2,2,0,2,4,1 
1000 DflTfi 28,0,0,2,2,0,2,4,1 
1010 DATA 27,0,0,4,2,0,1,3,1 
1020 DATA 27,0,0,4,2,0,2,3,1 
1030 DATA 27,0,0,5,2,0,2,3,1 
1040 DATA 27,0,0,5,2,0,2,4,1 
1050 DATA 27,0,0,6,2,0,1,3,1 
I860 DATA 27,0,0,6,2,1 
1070 DATA 27,0,0,4,2,1 
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GRAPHICS MODE 11 

Mode 11 is similar to mode 9 except instead of varying 
luminances and a SETCOLOR, mode 11 offers varying 
colors at a set luminance. To set the luminance type: 

SETCOLOR 4,0, Luminance wanted. 

A program demonstrating mode 11 is given below: 


10 REP1 * GRAPHICS flODE 11 DEP10. $ 

20 GRAPHICS 11:SETCOLOR 4,0,8 
30 C0L0UR=INT<RNO<0 >&15 >+1 
40 COLOR COLOUR 

60 PLOT X,V:DRAWTO 79-X,V:DRAHTQ 79-X,19 

1-V:DRAHT0 X,191-V:DRflHTG X,V 

65 SOUND 0,X,10,15:SOUND 1,X+1,10,15:SGU 

ND 2,V,12,8 

70 X=X+0.5:V=V+1 

80 IF X<40 THEN 30 

84 COLOR 0 

98 SOUND 0,0,8,0:SOUND 1,0,0,0:SOUND 2,0 

, 0,0 

100 GOTO 100 
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Chapter 3: 

INPUT/OUTPUT ON 
THE ATARI 
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This chapter is going to deal with creating, reading and 
writing to files. Before you can use files, they must be 
OPENed. This is done by: 

OPEN # (file number (1-5), MODE, 0, “DEVICE” 


MODE 

MEANING 

DEVICE 

MEANING 

1 

Input 

up.»» 

Printer 

8 

Output 

“C:” 

Cassette 

12 

Input + Output 

“D:” 

Disk 

6 

Disk directory 

“S:” 

Screen 

9 

End-of-file 

“K:" 

Keyboard 


Append 

“R:” 

RS232C 


Operaton 


Editor 


An example: OPEN #3,6,9,“D:*.*” would open file number 3 
the disk drive to read the directory. OPEN # 5,4,0,“C:” would 
open file number 5 to an input operation from the cassette. 

Files can be read from/written to in many different ways. 
There is PUT, GET, INPUT #, PRINT #, and certain XI0 
comands. 
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PUT and GET 

These commands PUT and GET single bytes. The format is 
PUT # file number (1 -5), variable. An example would be 
PUT #2, DATABYTE or GET # 3,ZZ. A program 
demonstrating PUT and GET is listed below: 


19 OPEN #1,4,0,“K:“SPOKE 752,1 

20 OPEN #2,8,0,"P:GRAPHICS 0 
30 GET #1,B¥TE 

40 PUT #2,BYTE 
50 PUT #6,BYTE 
60 GOT 0 30 


Note, that in line 50 it is outputing to file number six even 
though there is no corresponding OPEN statement. This is 
because file number six is automatically opened when a 
GRAPHICS statement is encountered. The advantage of 
using the GET and PUT commands is that you are directly 
ordering single bytes, therefore being simpler and easier. 
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INPUT # and PRINT # 

These commands are used to transfer a string of characters. 
An example using these commands might be PRINT # 2; 
“ATARI”;E$ or INPUT # 1,A$. 

In the first example, “ATARI” will be written to file number 2, 
followed by the contents of E$. In the second example A$ will 
be filled with ATASCII characters until A$ is completely filled 
up or an EOL character is reached. 


X10 5 and X10 9 

These commands are virtually the same as INPUT # and 
PRINT # commands except that XI0 9 will stop writing a 
string if an EOL character is reached, whereas PRINT # 
prints a string regardless of content. An example of XI0 9 
would be XI0 9,#1,8,0,NAME$. 
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Chapter 4: 

THE DISPLAY LIST 
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The display list is a list of numbers inside ANTIC which tells 
the computer which graphics mode it is currently operating in. 
In BASIC, these numbers indicating the graphics mode are 
all the same. When you change the graphics mode by a 
GRAPHICS command, the display list numbers change. The 
length of the display list will vary with the different graphics 
modes, but in all the graphics modes there are 192 scan 
lines. 

A scan line is a single line on the television screen. Certain 
graphics modes have different heights of the graphics rows. 
For example, a graphics row in mode 7 is much smaller than 
a graphics row in mode 3. To work out how high a graphics 
row is for a particular mode use this formula: 

192-^ number of rows in full screen = height of graphics row 
in scan lines. 

Example for graphics mode 5: no. of rows in full screen = 48: 
192 48 = 4 

So for graphics mode 5, each graphics row is exactly four 
scan lines high. 

If we are to start changing the numbers in the display list, the 
graphics display will change. In this chapter we will discuss 
how to build your own display list, making your own graphics 
display. First of all, let me show you the display list for 
graphics mode 0. 
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All values in Hexadecimal 


70 blank 8 lines 
70 blank 8 lines 
70 blank 8 lines 


must be here to cover 
overscan. 


42 Display Mode 0 (ANTIC MODE 2) 



Low, high bytes of start of screen memory at 7C20 


Display ANTIC MODE 2 BASIC graphics MODE 0 


Jump to start display list which starts at 7BEO 


Screen memory now follows. 
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As you can see, it looks quite complicated. All will be revealed 
soon. First, to find where the display list is. This is very 
simple, you just enter the command: 


DISPLAY LIST = PEEK (560) + 256* PEEK (561) + 4 

Before you go any further, you must work out what display 
you want. I am gong to give one example here: 


GRAPHICS MODE 2 


GRAPHICS MODE 1 



GRAPHICS MODE 0 

1 _ I _ 


10 GRAPHICS @ 

20 DL=PEEK< 560 >+256$PEEK<561>+4 
30 POKE DL-1,71:POKE DL+2,6 
40 SETCOLOR 4,9,4 

50 ? “t-he program Chat, DOES THIS IS 

ir 

60 ? "LISTED BELOW." 

70 LIST 


Program explanation: 

Line 10: As out of the three graphics modes we are using, 1,2, 
and 0, Mode 0 uses the most memory. Thus, we must specify 
this graphics mode. 
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Line 20: This statement finds the start of the display list data 
for the particular graphics mode, and stores the number in 
the variable DL. 

Line 30: If the first line of your required display is not the same 
as the graphics mode that uses the most memory, then you 
must POKE the value for the display list minus one with the 
correct numbers corresponding to the required graphics 
mode you want the first screen line to display. The numbers 
are listed below: 

GRAPHICS MODE 

01 234567 8 

NUMBER TO BE POKED 

66 70 71 72 73 74 75 77 79 

The second statement in line 30 puts the second screen line 
in mode 1. This is done simply by adding the number of 
screen lines to the variable DL and POKE this with this set of 
numbers corresponding to the required graphics mode for 
that particular screen line. 

GRAPHICS MODE 

012345678 

NUMBER TO BE POKED 
2 6 7 8 9 10 11 13 15 

Line 40 gets rid of the black border. 

Line 50 prints in orange and yellow, in graphics mode one 
and two. 

Line 60 prints in graphics mode 0. 

Line 70 lists the program in graphics mode 0. 

The way you can really learn is to experiment, find out where 
the display list is, and POKE around. You’re sure to find some 
special effects. 


46 



Chapter 5 : 

THE ERROR SYSTEM 
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This is a short chapter on the error system inside your Atari 
home computer. 

When the Atari computer comes across an error it will stop 
executing the program and will print an error message such 
as ERROR-6 AT LINE 20. You then look up in your manual 
what error number 6 is. You then find out that it means “Out of 
Data”. You try your best then to amend your program so that 
the program works as it should. 

Atari Basic provides you with a useful command called 
“TRAP”. This command will force execution to be continued 
at the line specified when an error is encountered. An 
example: TRAP 520 will cause the computer to GOTO line 
520 if an error occurs. If an error does occur then the error 
number can be found by PRINT PEEK (195). The error at 
which the line occurred can be found by PRINT PEEK (186) 
+ 256 * PEEK (187). 

A program that might prove useful to you is my error trapping 
program. Type it in and save it to disk or cassette. Now, 
whenever you are about to write a program, simply load it in. 
At the beginning of the program make sure that there is a 
TRAP 32000. Make sure that the line numbers do not exceed 
31999 or the error trapping program will start being erased. 
When you have finished writing your program, simply save it 
to disk or cassette using either LIST “C:”,0,31999 for 
cassette or LIST “D:FILE.EXT”,0,31999 if you have disk. 
This prevents the error trapping routine being saved as well. 
When you want your program back in just use ENTER “C:” or 
ENTER “DrFILE.EXT” if you have disk. The error trapping 
routine now follows: 
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\ i O l* 

32018 TRAP 3200W 
32020 IF P=2 THEN ? 
32030 IF P=3 THEN ? 


32040 

i: - 

IF 

P=4 THEN ? 

J 

32050 
arge n 

If 

i 

F-5 THEN 7 

32060 

Ih 

P=6 THEN 7 

32070 

!i _ 

IF 

F-7 THEN 7 

* 

32080 

IF 

P=8 THEN 7 

32090 

IF 

F-9 THEN 7 

32100 

IF 

P=10 THEN 

32110 

ill 51 z 

IF 

F-ll THEN 

- r 

32120 

IF 

F-12 THEN 

t "i 

32130 

IF 

P=13 THEN 

32140 

h -. H. 

IF 

F-14 THEN 

1 3 

32150 

IF 

F-15 THEN 

32160 

IF 

F-16 THEN 

UB 

32170 

If 

F-17 THEN 

32180 

IF 

P=18 THEN 

racter 11 

i 


“Out- of range 
“ T oo many var i ab 1 ee- 

" st-ring length too l 

" Qut o f data 11 ; 

“Line number too big 

“INPUT error 
"firray/DIfl error " i 
■ "Stack overflow 
“firithmetic overf1o 

• “undefined s-tatemen 

“NEXT without FOR " 

'• “Line too long erro 

?• “No GOSUB or FOR “i 
f "RETURN without 60S 

{ “Syntax error “i 
f “Invalid string cha 


10 Hhi‘i +-7 r i Rb F LINE SlUSl Ot TftfiF' +> ; - 

>0 REfl &+ 32000 THEN VOUR PRG6RAP1 

30 REfl +* GOES HERE. +% 

32000 P=PEEKt! 195 >: ERL=PEEKX 186 >+256*PEEK 


Out of memory "; 


32190 IF P=136 THEN ? "End of file 

32191 IF P=141 THEN GRAPHICS 0:? "Graphi 
cs error 11 - T 

32200 IF P>18 AND P<>136 AND P0141 THEN 
? "INPUT/OUTPUT error “j 
32210 IF ERLO0 THEN ? “at i.ne “;ERL 
32220 IF ERL=0 THEN ? 

32230 END 
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Note that if you use TRAP to a non-existant line number, an 
ERROR-12 will occur for any error. This is because when any 
error occurs, the computer checks if a TRAP has been set; if it 
has it will try to go to that line number. Thus, if it cannot, an error 
12 will occur. 
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Chapter 6: 
PLAYER- MISSILE 
GRAPHICS 
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I, personally, think that this capability is the best thing that is 
offered by the Atari computers. It makes Atari shine out from the 
rest. With a little effort, you will have players and missiles 
performing at the snap of your fingers. 

There are four players and four missiles, each with their own 
color register, size register and horizontal position register. You 
can have players going under certain playfields and over other 
playfields. Player missile graphics reside in RAM and so take up 
memory. Having single line resolution (one line of a player is 
one scan line) takes up exactly 2K of memory. Having double 
line resolution (each line of a player is two scan lines) takes up 
1K of memory. 

A player is exactly 8 bits wide by either 128 (double) or 256 
(single line resolution). To create your player, you just plot the 
squares on a grid 8 by however tall you want your player. Then 
put the numbers 128, 64, 32, 16, 8, 4, 2 and 1 (the binary 
headings) above the grid. Then add up the binary headings if 
the square is filled in. An example is: 
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128-64 +-32 +16 + 8 -h4-*-2 + 1 * 



= 128 

= 128+64=192 
= 64+32+16=112 
= 32 + 16+8+4=60 
= 32+16+8+4=60 
= 64+32+16=112 
= 128+64=192 
= 128 


A program that will put this player on the screen and so that you 
can move it about on the screen is listed below. Pressing the 
trigger button will change the size of the player. Type it in, see 
how it works and perhaps change it to suit you. A detailed 
explanation of how the program works is also given. Study it, 
and experiment, try to see how it wor1<s. 
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10 Kfc.Fl « PLAVER-F1ISSILE GRAPHICS ** 

20 REH tt EXAP1PLE BV PAUL BUNN. tt 
30 GRAPHICS 0: SETCOLOR 2,0,0: RAF1T0P=PEEK 
<106>-8 

40 RAP1=RAP1T0P$256 

50 FOR X=512 TO 640: POKE X+RAf1,0:NEXT X 
60 FOR; F—60 TO 67: READ X: POKE 512+P+RAP1, 
X:NEXT P 

70 DATA 128,192,112,60,60,112,192,128 

80 POKE 53248,128: F'UKE 53277,3: POKE 559, 

46: POKE 54279,RANTOP 

90 XPGS=128:VPOS=60:SIZE=0 

100 S=STICK< 0 > 

ii0 xpos=xpos+< s=7 >—;s=ii> 

120 POKfc 5324a,XPOa:POKE 704,XPOS 

130 IF STRI6<0;*=0 THEN FOR F-255 TO 0 ST 

EP -20:SOUND 0,P,12,12:NEXT P:SIZE=SIZE+ 

1:SOUND 0,0,0,0 

140 IF SIZE>3 THEN SIZE=0 

150 POKE 53256,SIZE 

160 IF 3=14 THEN FOR P=0 TO 3: POKE RAP1+5 
11+VPGS+P,PEEKX RATH512+VPGS+P >: NEXT P: VP 
QS=VPOS-l 

170 IF S=13 THEN FOR P=8 TO 0 STEP -l:PO 
KE RAFH-512+VPOS+P , PEEKX RAFH-511+VPOS+P ): N 
EXT P:VPGS=YPOS+l 
180 GOTO 100 
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Program Explanation: 

Line 30: Clears the screen, sets the background to black so that 
you can see the player more clearly. Location 106 holds the 
amount of memory pages you have, this is stored in a variable 
RAMTOP. 8 pages are stepped back for the player/missile 
area. 

Line 40: RAM is to hold the actual RAM location at which the 
player/missile arrangement starts. 

Line 50: This clears out the data currently held in PLAYER 0’s 
place. 

Line 60: This POKE’S in the player. 

Line 70: The data is decimal form for the binary layout for the 
player. 

Line 80: POKE location 53248 with the horizontal value for 
player 0, in this case, 128 for the middle of the screen. Location 
53277 is POKEd with a 3. This enables players and missiles. 
Location 559 is POKEd with a 46. This specifies double line 
resolution. Location 54279 is POKEd with variable RAMTOP. 
This tells the computer where the player/missile arrangement 
starts. 

Line 90: Sets x-position and y-position variables to centre of 
screen. Also sets size to small. 

Line 100: Reads value of joystick. 

Line 110: Increases or decreases the x-position variable 
according to whether the joystick is pushed to the right or left. 
Line 120: POKE the horizontal position register for player 0 with 
the x-position variable. Also POKE the color of player 0 with the 
x-position variable as well. 

Line 130: Check if the red button is pressed down, if it is then 
change size of player. 

Line 140: Check if size variable is greater than three. 

When size = 0 size of player = NORMAL 
When size = 1 size of player = DOUBLE 
When size = 2 size of player = NORMAL 
When size = 3 size of player = QUADRUPLE 
Line 150: POKE the size of player 0 register with the variable 
size. 
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Line 160: Check if joystick is moved up; if it is then move player 
up. 

Line 170: Check if joystick is moved down; if it is then move 
player down. 

Line 180: Continue program loop. 


Here is a list of all the locations that affect players and 
missiles: 


LOCATION NAME 


COMMENTS 


559 

623 


704 

705 

706 

707 
53277 


53278 

53248 
53256 

53249 


SDMCTL 

GPRIOR 


PCOLRO 

PCOLR1 

PCOLR2 

PCOLR3 

GRACTL 


HITCLR 

M0PF 
MOPL 
Ml PF 


POKE a 46 here for double, 62 for 
single line resolution. 

This location determines priorities 
for players and playfied. POKE a 

1 : Players have priority over 
playfields 

4 : Plafields have priority over 
players 

2 : Players 1 and 0 then playfield 

Players 2 + 3 

8 : Playfield 0 and 1 then players, 
Playfield 2 + 3 
Color of player-missile 0 
Color of player-missile 1 
Color of player-missile 2 
Color of player-missile 3 
Graphic control 1: A 3 here will 
enable player-missile graphics 
whereas a 0 will disenable them. 
POKE any value here to clear all 
collision detection registers. 
Missile 0 to playfield collisions. 
Missile 0 to player collisions 
Missile 1 to playfield collisions 
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LOCATION NAME 


COMMENTS 


53257 

53250 

53258 

53251 

53259 

53252 

53260 

53253 

53261 

53254 

53262 

53255 

53263 

53252 

53253 

53254 

53255 

53248 

53249 

53250 

53251 
54279 

53260 

53256 

53257 

53258 

53259 


Ml PL Missile 1 to player collisions 
M2PF Missile 2 to playfield collisions 
M2PL Missile 2 to player collisions 
M3PF Missile 3 to playfield collisions 
M3PL Missile 3 to player collisions 
POPF Player 0 to playfield collisions 
POPL Player 0 to player collisions 
PI PF Player 1 to playfield collisions 
PI PL Player 1 to player collisions 
P2PF Player 2 to playfield collisions 
P2PL Player 2 to player collisions 
P3PF Player 3 to playfield collisions 
P3PL Player 3 to player collisions 
HP0SM0 Horizontal position of missile 0 
HP0SM1 Horizontal position of missile 1 
HP0SM2 Horizontal position of missile 2 
HP0SM3 Horizontal position of missile 3 
HP0SP0 Horizontal position of player 0 
HP0SP1 Horizontal position of player 1 
HP0SP2 Horizontal positoin of player 2 
HP0SP3 Horizontal positon of player 3 
PMBASE This is the highest byte of where the 
player missile area starts. 

SIZEM Size of all missiles 
SIZEPO Size of player 0 
SIZEP1 Size of player 1 
SIZEP2 Size of player 2 
SIZEP3 Size of player 3 

POKE an X here for size registers: 
0 = NORMAL 

1 = DOUBLE WIDTH 

2 = NORMAL 


3 = QUADRUPLE WIDTH 
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HORIZONTAL 
MOVEMENT OF 
PLAYERS AND MISSILES 

This kind of movement is the most simplest for player-missile 
graphics. There are horizontal position registers for all four 
missiles and players. All you need to do is to POKE the 
corresponding horizontal position register with the horizontal 
position. POKEing a low number will move that missile or 
player to the left at the speed of light! POKEing a high number 
will move it to the right. Due to overscan, players and missiles 
will be off the screen between numbers less than 50 or 
greater than 200. These parameters may vary a great deal 
between different televisions or monitors. So POKE a 50 for 
the far left hand side of the screen and a 200 for the far right 
hand side. 
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VERTICAL MOTION WITH 
PLAYERS AND MISSILES 

This kind of movement is a little more difficult, and quite slow 
in BASIC. I consider players and missiles to be a ‘band’ of 
memory running from the very top of the television screen to 
the very bottom. This ‘band’ will be on the X-axis correspond¬ 
ing to its horizontal position register. It will always be 8-bits 
wide (except missiles which are two bits wide). The width of 
each bit will be affected by its corresponding size register. 

POKEing anywhere in this band will immediately display the 
corresponding byte in binary form. So, to actually move a 
player down or up you simply have to move it up or down in 
memory. 
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A FIFTH MULTIPLE 
COLOR PLAYER 


A multiple color player can be made by joining the four 
missiles, which all have their independent color register. All 
you have to do is to build your player in the four missiles area. 
Then put the required color for the two right most bits in the 
color register for missile 0, the next 2 bits in the color register 
for missile 1 and so on. Vertical motion is the same, but with 
horizontal motion all the horizontal positon registers must be 
in order (M3, M2, Ml and then MO), must be sequential. 


PM BASE 
+ 384 
MISSILES 
+ 512 

+ 640 

+ 768 

+ 896 

+ 1024 


+768 PM BASE 


M3 


M2 


Ml 


MO 


PLAYER 0 


PLAYER 1 


PLAYER 2 


PLAYER 3 


DOUBLE LINE 
RESOLUTION 


M3 


M2 


Ml 


MO 


PLAYER 0 


PLAYER 1 


PLAYER 2 


PLAYER 3 


SINGLE LINE 


MISSILES 1o%x 
+ 1024 


,X- '<•> 


+ 1280 

+ 1536 

+ 1792 
+ 2048 


RESOLUTION 


63 



If, for example, using double line resolution the hi-byte of 
PMBASE is 54 then in single line resolution the player missile 
area will start at 14208 in RAM (256 multiplied by 54) + 384. 


COLLISION DETECTION 

Before detecting a collision, first POKE HITCLR with any 
value. This clears all the collision registers. Then PEEK at the 
required collision detection register. Anything other than 0 
means that a collision has taken place. 
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Chapter 7: 
REDEFINING THE 
CHARACTER SET 
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This is another useful application which the Atari computer 
offers. The data forthe original character set is stored in ROM 
in binary form. The table starts at 57344 and is 1024 bytes 
long. You can only PEEK into the table and not POKE into it. 
Well, how do you change it then? Well, in RAM is a location 
called CHBAS which stands for character base register. You 
can change CHBAS to what you want. 

CHBAS is a hi-byte or MSB to the pointer of the character set 
table. When the value is 224 (the default) value) it points to 
57344. What you have to do is to copy the table from ROM 
into RAM, so then you can change and alter the RAM data as 
much as you like. 

A program that does this and redefines the exclamation mark 
character is listed below. A detailed explanation is also given 
so that you can see how it works. 


10 REfl ** THIS PROGRfln REDEFINS THE SS 
20 REfl ££ EXCLfiflRTION FlflRK CHhRhCTER» 

3W RflflTOP=PEEK< 106 >-8: POKE 756,RfiffT0P 
40 FOR X=0 TO 1023:POKE RfinTGP£256+X,PEE 
K< 57344+X>:NEXT X 
50 L0C=RHflT0P&256+8 
60 FOR X=0 TO 7 
70 READ BYTE 

80 POKE LOC+X,BYTE:NEXT X 

90 DATA 204,204,51,51,204,204,51,51 
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Line 30: Find top of memory and step back 8 pages. POKE 
756 with this. 

Line 40: Put the ROM character set into RAM. When you first 
run the program you’ll see this happening. 

Line 50: Finds the start of the 8 byte data for the exclamation 
mark character. 

Line 60-90: POKE in data for the character to replace the 
exclamation character. 

When ‘READY’ appears, press shift and T together and see 
the new character. 

To redefine the character of your choice you have to look up 
the character in the internal character chart (in the Atari 
reference manual) multiply that number by eight and add it to 
where your character set starts in RAM. For example, in the 
program: 

LOC = RAMTOP *256+8 

RAMTOP*256 finds the beginning of the character set. Add 8 
because the “!” character is the first character (NUMBER 1). 
Note that number 0 is a space. 
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Chapter 8: 

ATARI’S YELLOW 
CONSOLE KEYS 
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This is going to be a very short chapter on how to read the 
yellow Console Keys. Any combination of START, OPTION 
and SELECT can be found by a single PEEK location. The 
location to PEEK at is 53279. The table below shows which 
keys are pressed at a certain number between 0 and 7. 


PEEK VALUE 

i- 

0 

i 

i 

2 

3 

■ 

c 

6 

7 

KEYS PRESSED 

H 

D 

START 

• 


• 

■ 

• 


• 


SELECT 

a 

□ 


■ 

□ 

□ 



OPTION 

a 

□ 

□ 

□ 






A dot • means that the corresponding key has been pressed. 
An example, when PEEK (53279) gives 2 means that both 
START and OPTION keys have been held down. A program 
which puts this information to use is given below. POKE 
53279,0 makes the actual computer ‘click’. 
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10 GRAPHICS 0 :Din CONSOLE 3>sPOKE 752,1 
iL0 f" uk.t 5 -j!* 2 r' 0 j 0 
30 KEV=PEEK(53279> 

40 OH KEV GOTO 80,56,60,70*80*90 
50 IF KEV=0 THEN 70 

60 POSITION 0,0:? "NO KEYS ARE PRESSED": 

CONSOLE " 006■": GOT 0 i 50 

76 CQNSQL$="111":GOTO 146 

80 CONSOL?— “110":GOT0 140 

9W CONSOLE" 101": GOTO 140 

100 CONSOLE "100": GOTO 140 

110 CQNSQL$=“011":GOT0 140 

120 CONSOLE— "010":GOTO 140 

130 CONSOL$=“001”:GOTO 140 

140 POSITION 0,0:? 11 

156 POSITION 2,5:IF CONSOLE 1,1>="1" THE 
N ? "OPTION":GOTO 176 
160 ? " 

178 POS IT I ON 2 ,10:1F CONSOLE 2,2 TH 

EN ? "SELECT":GOTO 190 
180 ? " " 

190 POSITION 2,15:IF CONSOLE3,3>="1" TH 
EN ? "START":GOTO 20 
200 ? " 

210 GOTO 20 
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Chapter 9 : 

JOYSTICKS AND 
PADDLES 


73 



74 



On the Atari computer, to read the joysticks or paddles is as 
simple as ABC. There are two commands, STICK and 
PADDLE which give you access to the games’ controllers. 
You do not have to PEEK or POKE like you have to on some 
computers; a chip called POKEY does it all for you. 
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The STICK command 

The STICK command is followed by a number in brackets 
ranging from 0-3. This number refers to the joystick to be 
read. Number 0 is joystick one and number 3 is joystick 4. 
The value that the STICK command gives relates to the way 
that joystick is pointing. 


14 



13 
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How to check if the read 
button on the Joystick 
Controller is pressed. 

The command that checks the red button on the joystick is 
STRIG. There is also a number following this command in 
brackets. For example: STRIG(2) would refer to the red 
button on joystick number 3. Try putting a joystick in socket 
one and typing PRINT STRIG(O). If you had the button 
pressed down when you entered ‘RETURN’ the computer 
will PRINT a zero. Otherwise the computerwill PRINT aone. 
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How to read the Paddle 
Controllers. 

Up to eight paddle controllers can be attached to the Atari 
computer through only four ports. How? Well, each pair of 
paddles has only one socket plug. The paddles are 
numbered from 0-7 from left to right. An example: 
PADDLE(2) will give you the status of paddle controller 
number three. The status can range from 1 to 228. The 
diagram demonstrates this: 


PADDLE command gives: 


PADDLE CONTROLLER PADDLE CONTROLLER 

TURNED TO LEFT TURNED TO RIGHT 
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Checking the red button 
on the Paddles 

To check the red button on the paddle controllers is very 
similar to checking the red button on the joystick controllers, 
except the command to use is PTRIG. This command works 
in the same way as the STRIG function, except the number in 
brackets ranges from zero to seven indicating the paddle 
number. 
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Chapter 10 : 

MAKING PROGRAMS 
MORE EFFICIENT 
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Writing Programs 

Most books on general programming suggest you start by 
drawing up a ‘flowchart’-a pretty combination of circles, 
diamonds and slanting rectangles-which sets out the path 
and operations the computer will follow to execute the 
program. In theory, this is fine but in practice, especially when 
using a computer like the Atari which can quickly pinpoint 
errors, and will not ‘self-erase’ if you’ve made a programming 
mistake, the time and trouble involved is probably not worth 
it. 

It is, however, essential to know exactly what you want the 
computer to do before you start creating a new program, 
even if you’re not quite sure how you are going to get the Atari 
to carry out the task. 

Sometimes a rough sort of flowchart-just the main steps the 
Atari wil take, linked by lines and loops-will help to clarify 
your thinking. This is also a good way of spotting potential 
problems (such as infinate loop) or not specifying the 
computer’s task exactly. 

We generally work out the ‘core’ of a program on paper, then 
enter it into the Atari, starting at line 100 to leave room before 
this line to assign variables, arrays and the like. If you’re 
working on a fairly simple game, or are adapting one from a 
magazine or book, it is just as well to work directly on the 
Atari, but you could keep a notebook handy to record things 
like the fact that, for example, N$ is for the player’s name. 

If you have added memory, or memory to spare, don’t let it s 
presence lead you into sloppy programming habits. It is very 
easy to set up a long and clumsy set of IF statements which 
really should be replaced by an IF then a GOSUB. When you 
have memory to spare it seems too much trouble to bother 
cleaning up your programs. 
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Making Games Programs 
more Interesting 

The best thing you can do for a longer program is to add the 
element of surprise. If you can include situations which do not 
occur every time a game is played, you’ll ensure the game 
will remain interesting for a much longer time than would be 
the case if every situation was triggered each time a game 
was run. 

Another idea is to offer a degree of difficulty feature. Make 
sure that this feature really does increase the difficulty of the 
game, and ensure that-even at the highest level of play-the 
final score is reasonably attainable. 

You can add even more interest to games by awarding 
points, scores, ratings or whatever, that are genuinely related 
to the speed and skill the player demonstrated. A further twist 
is to award a ‘rank’. Atari’s Star Raiders’ cartridge does this 
by giving you a rating from ‘garbage scow captain’ to 
‘commander’. I bet you that this ranking system is what kept 
you playing Star Raiders 24 hours a day! 
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Making programs run 
faster and how to save 
Memory 

1. Try to re-structure a BASIC program so that it is as efficient 
as possible. This will lower execution time and save memory. 

2. Put all frequently used subroutines and FOR + NEXT 
loops at the beginning of the program. As BASIC tries to 
reference a sub-routine by it’s line number, any subroutine at 
the beginning of the program will take less time to reach. At 
the very first line make this a G0T0 statement pointing to the 
main program loop. 

3. If a very short subroutine is used, delete the subroutine and 
put the statements from the subroutine into the place where 
the GOSUB command was issued. 

An example: 

10 F0R X = 1 T0 10 
20 G0SUB 50 
30 NEXT X 
40 END 

50 PRINT “HELL0” : RETURN 


would be changed to: 

10 F0R X = 1 T0 10 
20 PRINT “HELL0” 

30 NEXT X 
40 END 

Doing this, not only saves memory, but decreased execution 
time (speeds the program up). 
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4. If the screen data is not required, by turning off the screen, 
the program will run 30% faster. Turn off the screen by the 
command: POKE 559,0. When you want the screen back on 
just enter the GRAPHICS command. 

5. If you understand machine code, use the USR function. 
Assembly language is much faster than BASIC. 

6. Remove all the REM statements. REM statements just 
take up space in the program. 

7. If a number is referenced many times, then 6 bytes can be 
saved if a variable is set to that number, and the variable is 
referenced instead. 

8. At the start of a program, variables can be set up by a 
READ/DATA statement. This will save memory because 
data in the DATA statements will be stored as ATASC11 one 
byte date. 

9. Use the colon character to have more than one statement 
on a line. 

10. Use a POKE instead of SETCOLOR statements. 

11. Use a POKE instead of POSITION statements. 

12. Use a POKE instead of STICK, PADDLE, PTRIG, 
STRIG, statements. Where to POKE is given in the memory 
locations section of this book. 

13. An idea may be to chain programs. An example may be 
that the first program sets all variables, strings and the like, 
and the main program actually makes the program go. 
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Chapter 11 : 

THE SOUND COMMAND 
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The SOUND command is something offered by the POKEY 
chip. What I like about Atari sound is that the sound is 
playable through the television speaker and not through the 
tiniest loudspeaker you’ve ever seen in the computer. 
Another thing I like about it is that you have four completely 
independent sound registers. 

As you probably know, the SOUND command has four 
parameters: 

SOUND channel, tone, distortion, volume. 

Channel: This is a number referring to the four channels 
offered. The number ranges from zero to three. 
Tone: A number ranging 0-255. The higher the 

number the lower the note. 

Distortion: This number is an even number from 0-14, 
although you can have a number from 0-255. A 
number of 10 means ‘pure tone’. Other numbers 
give special effects. 

Volume: A number between 0-15, the higher the 

number, the louder the note. 

You can create a good effect by all the channels playing 
similar notes. Try typing this: 

SOUND 0,200,10,15 
SOUND 1,201,10,15 
SOUND 2,202,10,15 
SOUND 3,203,10,15 

This gives quite an amusing effect. 
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Another interesting effect can be created by rapidly lowering 
the volume of a note. The program following does this: 


10 REP! ++$# Hijljj Nu UtJ'IU "t 
20 FOR T 0NE=255 TO 9 STEP -20 
30 FOR U0LUHE=15 TO 0 STEP -2 
40 SOUND 0 * TONE *10# UGLUPIE 
5© NEXT UOLUfiE 
60 NEXT TONE 
76 END 


To turn off all sounds, use END, or to turn off individual 
sounds use SOUND channel, 0,0,0. 
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LOCATION 540 

This location in memory is a count-down timer. Every Vsoof a 
second, it’s value is decreased by one (decremented). 
Usually it’s value is 0, so nothing is changed. Location 540 
can be used to time a sound for up to nearly 47* seconds. The 
following short program plays each note for two seconds. 


i. 0 KEPI suUHD utriu ^ ++#$ 

20 FOR T0NE=255 TO 0 STEP -20 

30 PuK.E 540#120:REH l20 = id SECOHDS&60 

40 SOUND 0jTONEj 10#i5 

50 Ih PEEK< 540 X >9 THEN 50 

€•0 NEKi TONE 

70 END 
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Chapter 12 : 

MEMORY LOCATIONS 
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Before I go any further, you must firstly fully understand the 
esence of PEEK and POKE. Here are examples: 

POKE location, BYTE where BYTE is a number between 
0-255 LET A = PEEK (BYTE) or ? PEEK (2036) 

POKE is used to change the contents of any location in 
RAM. 

PEEK is used to return the contents of a location. 

Another thing you must understand is a two byte address. 
Say that there is a two byte at locations 14 and 15. To find 
their address in the example would be: 

ADDRESS = PEEK (14) + 256 * PEEK(15) 
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NAME 


DECIMAL HEX. 

ADDRESS ADDRESS DESCRIPTION 


APPHI 

14,15 

D.E 

This is a two-byte 
adress pointing to the 
highest location used 
by BASIC. 

POKMSK 

16 

10 

Interrupt request enable 

RTCLOK 

18,19,20 

12,13,14 

TV frame counter. 

SOUNDR 

65 

41 

NOISY I/O FLAG 

ATTRMOD 

77 

40 

Attract mode -128 = 
YES 

LMARGIN 

82 

52 

Left screen margin 

RMARGIN 

83 

53 

Right screen margin 

ROWCRS 

84 

54 

Cursor row in graphics 
window 

COLORS 

85,86 

55,56 

Cursor column in 
graphics window 

DATCURS 

93 

5D 

graphics mode 0, data 
under the cursor 

NEWROW 

96 

60 

Row to which 
DRAWTO will go to 

RAMTOP 

106 

6A 

Number of pages of 
RAM 

LOMEM 

128,129 

80,81 

BASIC low memory 
pointer 

MEMTOP 

144,145 

90,91 

BASIC memory top 
pointer 

STOPLN 

186,187 

BA,BB 

STOP/TRAP line 
number 

ERRSAV 

195 

C3 

ERROR NUMBER 

PTABW 

201 

C9 

PRINT TAB WIDTH- 
DEFAULT 10 

FRO 

212,213 

D4,D5 

Value to be returned 
after USR. 

RADFLG 

251 

FB 

RAD/DEG flag 0 = 
RAD 6 = DEG 
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SDMCTL 

559 

22 F 

SDLSTL 

560,561 

230,231 

SSKCTL 

562 

232 

LPENH 

564 

234 

LPENV 

565 

235 

SYRES 

580 

244 


GPRIOR 

623 

26F 

PADDLO-7 

624-277 

270-277 

STICKO-3 

632-635 

278-27B 

STRIGO-3 

644-647 

284-287 

TXTROW 

656 

290 

TXTCOL 

657,658 

291,292 

TXTWND 

703 

2BF 

PCOLRO 

704 

2C0 

PCOLR1 

705 

2C1 

PCOLR2 

706 

2C2 


OS DIRECT 
MEMORY ACCESS 
CONTROL 

Pointer to beginning of 
display list 
OS SERIAL PORT 
CONTROL 
LIGHT PEN 
HORIZONTAL 
VALUE 
LIGHT PEN 
VERTICAL VALUE 
When this is anything 
but a 0, then when 
system reset is 
pressed, a cold start 
will execute. 

OS PRIORITY 
SELECT 

PADDLE controllers 0 
through 7 
JOYSTICK 

controllers 0 through 3 
JOYSTICK 

TRIGGERS 0 through 
3 

CURSOR row in text 
window 

CURSOR column in 
text window 
TEXT WINDOW 
24=OFF 4=ON 
Color of player-missile 
0 

Color of player-missile 
1 

Color of player-missile 


97 



PC0LR3 

707 

2C3 

2 

Color of player-missile 

Q 

COLORO 

708 

2C4 

O 

Color of playfield 
register 0 

COLOR 1 

709 

2C5 

Color of playfield 
register 1 

COLOR2 

710 

2C6 

Color of playfield 
register 2 

COLOR3 

711 

2C7 

Color of playfield 
register 4 

MEMTOP 

741,742 

2E5.2E6 

OS MEMORY TOP 
POINTER 

MEMCO 

743,744 

2E7,2EB 

OS MEMORY LOW 
POINTER 

CRSINH 

752 

2F0 

A 0 here for the cursor 
to be displayed a 1 to 
turn it off. 

CHACT 

755 

2F3 

A 4 here for text to be 
displayed upside 
down 

CHBAS 

756 

2F4 

A 224 here for upper¬ 
case characters, or a 
226 for lower case. 
You can also POKE a 
value here to point to 
your own character set 
in RAM 

ATACHR 

763 

2FB 

Last ATASCII 
character 

CH 

764 

2FC 

Last key hit in internal 
code 

FILDAT 

765 

2FD 

Color that FILL 
operation is to use 

CONSOL 

53279 

D01F 

Location to be used 
when reading from the 
yellow consol keys 
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STIMER 

53769 

D209 

Start timer 

RANDOM 

53770 

D20A 

Random number 
generator producing a 
number between 0- 
255 every Veoth 
second 

PACTL 

54018 

D302 

A 52 here to turn the 
program recorder on, 
a 60 to turn it off 

PENH 

58284 

D40C 

The horizontal value of 
the light pen 

PENV 

58285 

D40D 

The vertical value of 


the light pen 
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Vectors 


HEX. 

EC. 


OA 

10 

DOS Vector 

OC 

12 

Warm-start vector 

12,13,14 

18,19,20 

3 bytes of built in clock 

58 

88 

Pointer to the beginning of screen 
RAM 

200 

512 

Display list interrupt vector 

E453 

58451 

Disk interface 

E45C 

58460 

This routine sets vectors 

E45F 

58463 

This vector is executed at vertical 
blank 

E462 

58466 

This vector is executed after 
vertical blank 

E465 

58469 

Routine initialises serial input/ 
output 

E471 

58481 

Goes into the blackboard mode 

E474 

58484 

Warm start 

E477 

58487 

Cold start (power-up procedure) 

E47A 

58490 

This routine reads a block of 128 
data bytes into CASBUF (data 
starts at 400 in hex.) 

E470 

58493 

Open cassette for input vector 
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Chapter 13: 

GAMES PROGRAMS 
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The following programs are intentionally designed purely for 
the purpose of fun, although I hope you’ll enter the programs 
as we have listed them here, and enjoy playing them. The 
real value of this section though, lies in what you do with (a) 
the programs to adapt them to make them your own; and (b) 
the ideas you get from them to use in new programs of your 
own. 

Unfortunately, the ATARI printer does not print graphics 
characters, so I have had to ink in the appropriate graphics 
characters. Notice that the () symbol is the clear screen 
symbol. 
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BEETLE JUICE 

This is one of my favourite programs, about a poor red beetle. 
Instructions are listed below. Make sure that you SAVE the 
program first before you attempt to RUN it at all, because an 
error in the program, especially in the DATA statements 
could cause the computer to crash (because it uses 
assembly language in the form of USR calls). 
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The l nstruc 
B E 


ons tor beet 1 e juice: — 
T L E J U 1 C E 



Vou are a s-ma 1 1 red beet I e whose' on 1 y 
desire is* to Qet to the other side of 
the road.This is no easy task because* 
unfortunately for your beetle,there 
are some man i ac dr i vers arour»d try i r 19 
to put Beetle Juice back on the menu 
again! 


you may move up or down i n your 
desperate plot to get to the other 
side.The ultimate goal is to yet 10 
bee 11 es ac ros-s, 

Scoring is for the time taken to ‘yet 
the beetles safely home. 

A score of less than 3000 is poor 
about 5800 i s* avarage and 
greater than 7500 t=- excellent. 

HIT ftNV KEV TO PLOT BEETLE JUICE! 
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10 RED 

•Y* V- -Y- -Y- -Y- -Y- -V-7- -V- -Y--Y-Y- 


BV PAUL BUNN 


i i I j I it - : i 

^ 


20 GRAPHICS 0:POKE 752*1: DIP! A$<1> 

30 SETCOLOR 2*3*4: SETCOLOR 4*3*4:Y "Do 
ou desire instructions " 


y 


40 TRAP 20:INPUT A$:IF A$="Y" THEN 73G 
50 IF A$<>"N" THEN ? :? " PARDON !":? :G 

0T0 30 

60 TRAP 40000:GOTO 8© 

70 CLR :GOTO 20 

60 GRHPHlCo 1:POKE 756*226:SETCOLOR 0*W* 

0:? #6i" 

90 FOR C=1 TO 5:? #6,*" - 

-":NEXT C:? #6**" 

100 SETCOLOR 2*4*4 


110 GOSUB 480:POKE 752*1 

120 RESTORE 670: FOR C=0 TO 93: READ D:POK 

E 1536+C* D:NEXT C 

130 POKE 53278*2:POKE 540,255 

148 C=USR<1536 >:E=STICK< @ >:IF E=14 THEN 

SOUND 0,70*10,15:C=USR<1595>:SOUND 0,0*8 

* 0 

150 IF E=13 AND PEEKX 206 X216 THEN SOUND 
0*200* 10*15:C=USR< 1615):SOUND 0*0,0*© 
160 IF PEEK< 206>=141 THEN G»OTO 190 
170 IF PEEKT 53263X>0 THEN 280 
180 GOTO 14© 


190 REFI tt YOU WIN 
200 b=b+10#PEEK<540> 

210 FOR D=252 TO 4 STEP -4: SOUND 0*D*18* 
15: SOUND 1,0+1*10*15: SOUND 2*0+2*10*15: S 
OUND 3*0+3*18*15 


220 NEXT D 

230 FOR C=0 TU 3:SOUND C*0*0*0:NEXT C 

240 F=F+1:? CHR$<125>*“ BEETLES HOPE 
SAFELY : ‘‘;F 
250 IF F=10 THEN 400 

260 X=USR< 1615 >: IF PEEK< 206 X216 THEN 26 

0 
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270 GQSUd 580:GOTO 130 

280 ? "BEETLE JUICE IS ON THE fTENU 060IN 

i » 

290 FOR D=1 TO 45:C=USR<1536>:POKE 787,P 

EEKC53770> 

300 POKE INK RND< 0 >$6 >+PEEK< 206 >+2564cPEE 

K<. 207 >,PEEKX 53770 

310 SOUND 0,RND<0>^30,88,15:NEXT D 

320 POKE 707,0: SOUND @,0,0,0 

330 ? CHR$<125" Hit any key for anot 

her go. 11 

340 ? " SCQRE=“;6:G=0 

350 POKE 764,255:GOSUB 580 
360 IF PEEKX 764 >=255 THEN 368 
370 POKE 707,54:C=USR<1595 > 

388 C=USR( 1615>: IF PEEKX 206 X216 THEN 38 
0 

39@ F=0:6OTO 130 

400 GRAPHICS 2:SETCOLOR 2,0,0:? #6;“ con 
Qratulations!!" 

410 ? #6,,,,"YOU HfiUE P10N06ED TO" 

420 ? #6,,"GET 10 BEETLES HONE Sfi 

FELV" 

430 ? #6,,"'we 11 done indeed!!!" 

440 POKE 53248,0:POKE 53249,0: POKE 53256 
,0:POKE 53251,0 
450 ? #6i"score="iG 

460 FOR C=8 TO 255:SOUND 0,C,12,15:NEXT 

C 

478 SOUND 0,0,0,0:END 

480 0=PEEK<106>-8:POKE 54273,0:6=256*0:F 
OR C-B+512 TO B+1824:P0KE C,0:NEXT C 
490 RESTORE 660:FOR C=B+531 TO B+538:REfi 
D D:POKE C,D:NEXT C 

508 RESTORE 600:FOR C=B+670 TO 6+677: 

D D:POKE C,D:NEXT C 
510 RESTORE 620:FOR C=8+81W TO 6+817: 

D D:POKE C,D:NEXT C 

520 RESTORE 630:FOR C=B+566 TO B+573: 

D D:POKE C,D:NEXT C 
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539 RESTORE 840:FOR C=B+707 TO B+714:RER 
D DSPOKE C,D: NEXT C: 

540 RESTORE 630:FOR 0=8+847 TO B+854:REfl 
D D:POKE C,D:NEXT C 

550 RESTORE 610:FOR C=B+986 TO B+992:REfi 
D D:POKE C,D:NEXT C 

560 C=INT<<B+986>-256>:D=B+986-25S*C:P0K 
E 206,0:POKE 207,C 

570 POKE 559,46:POKE 53277,3:POKE 623,1: 
POKE 704,12*16+8:POKE 705,7*16+8:POKE 76 
6,23:POKE 707,3*16+6 

580 E=53770:POKE 203,PEEK<E>:POKE 204,PE 
EK< E >: POKE 205,PEEK<E>:PGKE 53251,180 
590 RETURN 

600 DfiTfi 24,113,254,191,191,254,113,24 
610 DfiTfi 24,90,60,126,126,60,66 
620 DfiTfi 238,68,233,123,123,233,68,238 
630 DATA 231,66,218,127,127,218,66,231 
640 DRTfi 119,34,119,222,222,119,34,119 
650 DfiTfi 231,66,91,254,254,91,66,231 
660 DfiTfi 24,142,127,253,253,127,142,24 
670 DfiTfi 104,230,203,169,200,197,203,176 
,4,169,50,133,203,198,204,234,234,169,58 
,197 

680_DfiTfi 204,144,4,169,200,133,204,230,2 
85,236 

690 DfiTfi 205,234,234,169,200,197,205,176 
,4,169 

780 DfiTfi 50,133,205,165,203,141,0,203,16 
5,204,141,1,208,165,205,141,2,208,96 
710 DfiTfl 104,198,206,208,2,198,207,160,0 
,185,89,6,145,206,200,192,9,208,246,96,1 
04,230,286,288 

72U_DfiTfi 2,230,207,76,66,6,0,24,90,60,12 
6,126,60,66,0,0 

730 ? "> B E E T L E JUIC E“ 

740 ? " *-*-*-*-*-* *-*-*-*-*" 

750 ? :? " You are a sioall red beetle u»h 
ose oniy"j 

760 '? “desire is to -set to the other sid 
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€• of the- road.This is no easy task becau 
se “ 

779 ? “unfortunately for ‘jour beetle,the 

re 11 

780 ? “are some maniac drivers around tr 
y i ng " 

780 ? “to put Beetle juice back on the m 
enu“ 

800 ? " aga ini": ? : ? “ you may iTiove up or 
down in your" 

810 ? “desperate plot to get to the othe 

r" 

820 ? "side.The ultimate 'goal is to get 
10 " 

830 ? "beetles across." 

94@ ? :v « scoring is for the time taken 
to get" 

850 ? "the beetles safely home." 

860 ? "ft score of less than 3000 is poor 

n 

870 '? "about 5000 is avar-age and" 

880 ? "greater than 7500 is excellent." 

890 ? :? "HIT ANY KEY TO PLAY BEETLE JUI 

CE! " 

900 POKE 764,255 

910 IF PEEKX764>=255 THEN 910 

920 GOTO 80 

930 END 
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SMASHOUT! 

In this arcade style game, you have to pulverise as many 
bricks as you can using your paddle at the bottom of the 
screen. The paddle is controlled by the joystick by moving left 
and right. Use your paddle to keep the ball in play. You score 
points for destroying bricks, but look out, if the ball hits the top 
wall, your bat is reduced to half size! 

When you type in the program, SAVE it before you attempt to 
RUN it because the computer will crash if you have typed in 
the data wrongly. 

After RUNning the program, be patient for a while as the 
computer redefines the character set, POKEs in machine 
code and sets up player/missile graphics. 
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10 Hh.fl % SHASHGUT - WRITThN BV % 

20 RED * PAUL BUNN SEPTEP1BER 1382 % 

38 ? CHR$<125>*"PLEASE WAIT WHILE I REDE 
FINE CHARS":BLS=3: K=142.-19: HODE=l 

40 ? "AND SET UP PLAVEfVTIISSILE GRAPHICS 

11 

50 ? ".THANK VGU.":? :? 

:? "PLEASE HIT THE 'START' KEV TO BEGIN" 
60 FUR P=1536 TO 1536+140:HEHD X:ROKE P* 

X:NEXT P 

70 DATA 104#173#120*2#201*7#208#4#230*20 

80 DATA 230 # 203 #201*11#203 *5,198*203* 198 
*203 

90 DATA 24*165*203*141*0*208,201*56*176* 

4 

100 DATA 169*56*133*203*24*165*203*201 * 1 
84*176 

110 DATA 2*133*203,165,206*201*1*208*2*1 

38 

120 DATA 208*201 *2*208*2*2^*0*208* 165*208 
* 141 

130 DATA 1*208*201*197*144*4*169*1*133*2 
06 

140 DATA 165*208*201*57*176*4,163*2*133* 
206 

150 DATA 165*207,201*1*208*22*2-30*204*16 
5*204 

160 DATA 201,0*208*2*230*205*160*0*185*1 
170 DATA 6*145*204*200*192*4*208*246*165 

r £10 i _ 

180 DATA 201*2*208*22*198*204*165*204*20 
1*0 

130 DATA 208*2* 138*205# 160*0* 185* 1-if #6*1 
45 

200 DATA 204*200*192*4*208*246*96*0*128* 

IcLC J- 0 

210 IF PEEK-, 53273 K >6 THEN POKE 53279,0: 

POKE 53273*8:GOTO 210 

22 0 DIPT 6$<9>:G$= "6AHE UUER" 


in 







230 GRAPHICS 1+16: RAH=PEEK< 106 >-8: FOR X= 

6 TO 1023:POKE RAfT*256+X,PEEK< 57344+X >: N 

EXT X 

248 POKE 756, R API: FOR X=6 TO 7: POKE RAFI#2 
56+8+X,255:NEXT X 

258 SETCOLOR 0,2,6:GuSUB 260:GOTO 320 
260 ? #6i‘‘score=0":POKE 53278,2: POSITION 
12,0:? #6; ,, bails=3" 

270 COLOR 129:PLOT 1,4:DRAWT0 18,4:PLOT 
1,5:DRAWTQ 18,5 

280 COLOR 33:PLOT 1,6:DRAWTG 18,6:PLOT 1 
,7:DRAWTO 18,7 

290 COLOR 161:PLOT 1,3:DRAWTO 13,8:PLOT 
1,9:DRANTO 18,9 

300 COLOR 1:PLOT 1,10:DRAWTO 18,10:PLOT 
1,11 *.DRAWTO 18, li 

310 COLOR 33:PLOT 0,23:DRHWTO 0,1:DRAWTO 
19,1:DRAWT0 19,23:RETURN 
320 RHP1=HAI‘1—8:POR X=512 TO 768:POKE RAfl£ 
256+X,8:NEXT X:RAn=RAPK256 
330 POKE RAn+620,255:POKE RAPl+621,255 
340 POKE 559,46;: POKE 54279,RAIV256:P0KE 
53277,3 

350 POKE 784,1-5X16+10:POKE 705,54: PUKE 5 
3248,128: POKE 53249,128: POKE 53256;,! 

360 POKE 203,128:POKE 208,128:POKE 206,2 

:POKE 207,1:BALL=RAH+710 

370 HI6H=INT< BALL^-256>:LGW=6ALL-256*HI6H 

380 POKE 204,LOW:POKE 205,HIGH 

380 X=USR<1536 > 

400 IF PEEKX204>+256*PEEKX205>-RAPK666 T 
HEN POKE 287,1:H0DE=2:POKE 53256,6 
416 IF PEEK<53260 X >0 THEN X=PEEK<203>+7 
:V=PEEKX2082-POKE 207,2:F'UKE 206,(¥>=X>4 
2+< V<X >: f10Dt=l 
426 X=USR<1536 > 

430 IF PEEKX 53253 >=0 THEN 496 
446 FOR P=22 TO 12 STEP -1:SOUND 0,P,12, 
15: NEXT p:SOUND 0,0,0,0:SC=SC+10:P«JSITIO 
N 6,0:? #6iSC 

450 X= I NT< < PEEK< 208 >-55 V3 >+1 
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4KP1 Y=PEEKX 204 >+25btPEEK< 205 >-RAN-3: V=I N 

T<: i V-664 V4 >+3 

470 POSITION X<V:? #Si i! " 

480 PUKE 207 ,flODE 

490 POKE 53278,255:X=iJSFX153S> 

F.00 IF PEEK< 204)+256%PEEK<205 >-Rflft>75b T 

HEN 520 

510 GOTO 390 

520 FOR P=0 TO 255 STEP 7:SOUND 0,P,1@,1 
5:NEXT p:SOUND U,0,0,0 
530 IF PEEKX 53279X>6 THEN 530 
540 BLS=BLS-l:POSITION 12,0:? #6i“balls= 
i BLS: f'10DE= 1: POKE 53256,1 
550 IF BLS=0 AND PEEKX 53279>=6 THEN 558 
560 IF HLS=0 THEN b40 

570 POKE RHfT+760,0: POKE RhPH-761 ,0: POKE R 
AP1+759, 0 : GO i 0 34« 

580 P=0:FOR X=1 TO 18:FOR V=4 TO 11:LOCH 
TE X,V,Q:IF LK>32 THEN P = 1 
590 NEXT V:NfcXT X:If 8=0 THEN BLS = BLS+ls 
GOSUB 260:POSITION 12,0:? #6;“balls="iBL 

■I' 

600 GRAPHICS 1+16:GOSUB 260:POKE 756,RAO 
--•'256+8: SETCOLOR 0,2,6: POKE 559,46 
610 IF PEEK<53279>=6 THEN 610 
620 POKE 53279,0:IF PEEKX 53279 K >6 THEN 
620 

630 POKE RAH+7S0,0:POKE Rfin+761,0:POKE R 

HPi+759,0: GOT0 340 

640 FOR X=0 TO 8:POSITION 6+X,12:? #6jG$ 
< X+1, X+1 >: FOR V= 10$X TU 10$X+9: SOUND 0 , V 
,12,15 

650 SETCOLOR 0,X,8*.NEXT V-NEXT X:SOUND 0 

, 0 , 0,0 

680 IF PEEK*: 53279 X .>6 THEN 660 

670 SC=0:BLS=3:SOUND 0,0,0,0:GOTO 600 
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GRAND PRIX 

Use your joystick to control your car left or right down the 
narrow lane at night. 
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10 Hh.Fi 44 GhifiNU PRIX - P.8UNN 44 
28 PI=5 

30 X2= 14 s X=1iS s S=PEEKX 106 >—8: Q=S4256: FOR 
N=Q+512 Tu Q+640SPGKE N#0:NEXT Ns POKE 5 
4273#S:CRASH=250 

40 POKE 553#46SPOKE 53248#X:POKE 704#216 

:puke 704 # 2005 poke 5-3256#i 

50 FOR N=Q+552 TO Q+5Si:REfiD ft:POKE N#fi: 

Hex i n 

6ti DATA 129# 135# 1S5#24#24# 153#219# 1S5#36 

78 GRAPHICS 0SSETCOLOR 2#0#@sPOKE 53277# 

-3! PUKE. 553 # 4b 

80 POKE 752#is POKE 53278#0 

90 FOR: P=0 TO 23s FOR 0=1 TO X2s? 11 " ;: HE 

XT US Y " J I '* i NhXT P 

100 _S=ST ICKX £i >: X=X+( S=7 >42:X=X-< S=11 >4-2 : 

POKE 53248#X 

1101 SOUND 0 #40# 10# 15: SC=SC+P I s SOUND 0#0# 
0 # 0 

120 IF 0 THEN 0=0 s Z=2s GOTO 1701 
130 fi=PEEKX 53770 > 

140 iH h >35 AND fix 170 THEN 2=2 

150 If" fill7@ AND X2X15 THEN 2=3:0=1 

160 IF fi<85 fiND X2>2 THEN X2=X2-1:Z=1:Q= 


170 FOR N=1 iO X2 

> ii 

i * next n 

180 IF fi=132 AND 
"s1=1sGOTO 220 

NOT 

I THEN ? " FINISH 

190 IF 2=1 THEN ? 


✓» 

20© IF 2=2 THEN ? 


1" 

210 IF 2=3 THEN ? 

"\ 

\”s X2=X2+1 

220 V—PEEKX53252 > 

'SIF 

V< >0 AND I THEN GOT 


0 320 

230 IF V<>0 THEN GOTO CRASH 
240 GOT 0 10£i 

250 REH 44: YOU CRASHED! 44 
260 N=INTXRNDX0 >410): POKE Q+552+N#PEEK<5 
3770>sSOUND U#kND<W>420+20#30#15SPOKE 70 
4#PEEK< 537 70 > 

270 IF PEEK*: 53770 ><240 THEN 260 
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do0 POKE 53248#@!? :? "VOU SCOFED:“iSC:? 

:? :? “HIT HNV KEV.":POKE 764,255 
290 SOUND 0,0,0,0 
30W IF F'EEK< 764 >=255 THEN 300 
310 RUN 

328 MJR V=0 TO 255:POKE 710,V:NEXT V 

330 ? "TVOUR SCORE :"iSC:POKE 710,0 

340 ? " BONUS :1000”:B=1000 

350 FOR 6=1 Tu 1000 'STEP 10:B = B~ 10:sC = SC 

•*-10:POSITION 14,0:? SC:POSITION 14,1:? B 

i" 11 : SOUND 0,6.'4,10,10:NEXi G 

360 SOUND 0,0,0,0 

370 ? : 81=61X2: ? “STEP UwLUE NOW IS “;PI 
380 RESTORE :I—O 
390 GOT0 38 
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PATTERN GENERATOR 

Although not a games program, this program produces 
very pretty patterns. Just input any positive number when 
prompted and see that corresponding pattern. 
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10 REPI Z-ZZ PATTERNS BV P.BUNN ZZZ 
20 REF1 THESE STEPS GIUE GOOD RESULTS:— 
30 REPi 121,1234,2 
40 REPI 

50 DI PI A$< 10 >! DEG : U= 1: GRAPH ICS 8: COLOR 
1:SETCOLOR 2,5,4:SETCOLOR 4,5,4 
60 Y !l NHAT STtP INPUT P 
70 L=L+P 

80 A=>; SI Nt L >$78 >+120: B=1 COS‘i L >$70 >+88 

90 LOCATE A,B, I:_IF 108 THEN DRAHTO A,B 

SOUND 0,0,0,8:GOTO 130 

100 IF U THEN PLOT A,B: 11=0 

110 SOUND 0,8,18,8 

120 DRAHTO A,B:NEXT L:GOTO 70 

130 ? ">ANOTHER PATTERN INPUT A* 

140 IF Af-c 1,1 >="V“ THEN RUN 
150 IF A$<1,1>< >“N" THEN 130 
160 GRAPHICS 0:END 
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ALIEN BOMBS 

In this program you have to shoot down ten descending 
alien bombs. Use keys “1”, “2” and “3” to correspond to the 
top, middle and lower laser cannon. Full instructions are 
included in the listing. 
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18 Hhf'l ttt ALIEN B0P1BS &$£ 

28 Rfc/1 

38 ftEPl 8¥ P.8UNN DEC 1381 
40 REN 

58 uin h$■:. 5U > 

60 SETCOLOR 1,2,4:SETCOLOR 2,2,IQsSETCOL 
OR 4,2,10:POKE 82,1 

70 TRAP 70:? "}> INSTRUCTIONS < V--'N>"i: IN 
PUT A$:IF A$<>"N" AND A$<>"V" THEN 70 
80 If- A$= 11 N“ THEN 300 

90 Af-=" AN EUIL WARLORD HAS SENT TEN RAD 
10 “:SOSUB 360 

100 A$="CONTROLLED B0P]BS,AIP1ED AT VOUR P 

LANE i 11 : SOSUB 860 

110 A$=" ":SOSUB 360 

120 A$="VOUR HISSION :":SOSUB 360 

130 AT=" TO DESTROY ALL ALIEN BOflBS. ": 

SOSUB 860 

140 A$=”FAILURE TO C0P1PLETE VOUR TASK WI 
LL":SOSUB 360 

150 A$=" RESULT IN VOUR COURT I1ARTIAL! " :S 
OSUB 360 

160 A$=" 11 :60SUB 360 

170 A$="¥GUR CONTROLS :":SOSUB 360 

180 Af=" 1. bIRE UPPER LASER CANNON":60 

SUB 360 

130 Af-= !i 2. FIRE DIDDLE LASER CANNON":6 
OSUB j*66 

200 A$=“ 3. FIRE LOWER LASER CANNON":SO 

SUB 360 

210 A$=" ":SOSUB 368:A$="SCORIN6:“:SOSUB 
860 

220 A$=“HIT USING UPPER CANNON =10 POINT 
S":SOSUB 860 

230 A$=“HIT USING DIDDLE CANNON=20 POINT 
S":SOSUB 360 

248 A?= !, HIT USING LOWER CANNON =30 POINT 
S": SOSUB 360: AT-=" ": SOSUB 368 
258 A$="ONLY A DIRECT HIT WILL PENETRATE 
THE *': SOSUB 860- 
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£ 6 @ A $= 11 ALIEN bOPlB.. 3U bE CflREFULL! “ : 60S 
11 § 7,60 5 A$=" “sGOSUB 660 
270 fl$=" '“.60SUB 360:A$=“ THE 6A0E IS 0 
UER WHEN EITHER:-"sGOSUB 360 
280 HS="1. VOU DESTROV ALL BGriBS“:GOSUB 
666 

290 A$= H 2. A eoriB DESTROYS YOUR PLANET”: 
bOSUB 360 

306 A*=" “: GOSUB 360:0$=“ PRESS 'RETUR 

N' TO CONTINUE":SOSUB 360 

•610 POKE 764,255 

32W IF PEEKX764 X >12 THEN 320 

330 POKE 764,255:POKE 752,1 

340 FOR 6=0 TO 20:POSITION 0,6:? “ 

":NEXT 

6 

358 GOTO 370 

360 FOR 6=1 TO LEN<>:FOR Q=1 TO 10:NEK 
T Q:SOUND 1,120,10,12:? A$CS,S >;:SOUND 1 
,0,0,0: HEXi S:? : RETURN 
370 RET! SET UP PLANET 
380 GRAPHICS 7:SETCQLQR 2,12,4:SETC0L0R 
4,7,0:SETCOLOR 1,13,12 
390 COLOR 3:FOR L=0 TO 159 STEP 2 
400 Q== I NT< RND< 0 >X7 >+1 
41U PLUI L,7a: DR AWT 0 L, 1 -. 79—0 
420 PLOT L+l,79:DRAWT0 L+l ,< 79-Q >: NEXT L 
430 SETCOLOR 0,1,8:COLOR 1 
440 PLOT 2,0:DRAWTO 2,79 
450 PLOi 3,10:PLOT 3,11:PLOT 4,11:PL0T 
,12:PLOT 5,12:PLOT 4,13:PLOT 3,13:PLOT 
,14 

460 PLOT 3,30:PLOT 3,31:PLOT 4,31'.PLOT 
,32:PLOT 5,32:PLOT 4,33:PLOT 3,33:PLOT 
,34 

470 PLOT 3,50:PLOT 3,51:PLOT 4,51:PLOT 
,52:PLOT 5,52:PLOT 4,53:PLOT 3,53:PLOT 
,54 

480 POKE 752,1: FOR L=1 TO 12*.? “ GET RE 
ADYSOUND i, 120,10,14:FOR J=i TO 20:HE 
XT J 
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490 ? >*GET READY!“:SOUND 1,70,10,14:FO 
R 9=1 TO 20:NEXT J 
500 NEKi E 

510 ? ‘>*GO. .60. .GO! ! ! " 

520 FOR L=1 TO 3:FOR Q=1 TO S0 STEP 10:S 
OUND i, Q*L , 10 , L+12: A=A+1 


530 

540 

550 

560 

570 

580 

590 


NEXT Q:NEXT L 
? “SOUND 1,0,0,0:S=0 
REP! MAIN PROGRAM LOOP 
FOR 00=1 TU 10 
R=80 

FOR K=2 TO 76 STEP 5 
POKE 656,2:7 "SCORE:";S. 


"iOU 
600 SOUND 


ALIEN NO. 


1,RND<0 >*8,120,7 
610 W=INT<RND<0 >*4 >-2:Q=<RNO<@ >*5>-2:K=K 
-H4:R=R+Q 

620 IF R>154 THEN R=154 
630 IF R<4 THEN R=4 
640 COLOR 1:60SUB 770 

650 P=PEEK<764>:IF P=31 THEN E=10:KK=KK+ 
1:SOSUB 800:POKE 764,255 
660 IF F-30 THEN KK=KK+1:E=20:SOSUB 840: 
POKE 764,255 

670 IF P=26 THEN KK=KK+1: E=30: GOSUB :3S0: 

POKE 764,255 

680 COLOR 0:GOSUB 77U 

690 NEXT K 

700 COLOR i:GOSUB 770:FOR L=1 TO 5W 




L*. SOUND 1,0, 


0,0 


>*30,120,15: NEXT l.- o 
720 GRAPHICS 0:? "YOU LOST:..." 

730 ? :? "YOUR SCORE WAS "iS 

740 7 :7 "YOU WILL BE DISMISSED FROM THE 


750 ? "FEDERATION I...HND SHOT!" 

760 ? :? :GOTO 1080 

770 PLOT R+1,K+1:DRAWT0 R+6,K+1:PLQT R,K 
+2:PLOT R+l,K+2:PLOT R+3,K+2 
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f'S0 PLOl H+4*K+2s PLuT K-hB*K+ 2:K.QT R+7*K 
+2:PLOT R+l*K+3 :DkAHTO R+6*K+S 
790 RETURN 

800 COLOR 2:PLOT 6*12:DRfiWTO R+5*12:C0LG 
R 0sPLOT 6#12:DRAHTG 159#12:FOR L=i TO 2 
55 STtP 30:SOUND 1*L*10*15:NEXT L 
810 IF K>=9 FIND K<=11 THEN 920 
820 SOUND 1*0*0*0 
830 RETURN 

840 COLOR 2:PLOT 6*32:DRfiWTO R+5#32:C0L0 
R 0:PLQT 6*32:DRfiWTO 139*82:FOR L=255 TO 
1 STEP -80:SOUND 1#L*10*15:NfcXT L 
850 IF K>=29 hND k'<=31 THEN 920 
860 SOUND 1#0*0*0 
870 RETURN 

880 COLOR 2:PLOT 6,52:DRfiWTO R+5*52:COLO 
R 0:PLOT 6*52:DRfiWTO i59*52:F0R L=155 TO 
355 STEP 30:SOUND 1,L*10,15:NEXT L 
890 IF K>=49 HND K<=51 THEN 920 
900 SOUND 1*0*0*0 
910 RETURN_ 

920 RETl EXPLOSION! 

930 POP :POKE 764*255 
940 FOR N=1 DO 10 

950 Q=< RND< 0 >% 12 >—5: W=< RND< 0 >% 12 >-5 

968 COLOR INKRND<0>T3>+I 

970 PLOT R+3 # K+3: DR AWT0 R+Q,k+H: SOUND 1* 

RND'l 0 ,'5^90 * 140 # i 5: NeXT N 

980 COLOR 0 

990 FOR L=R-7 TO R+7:PL0T L*K~7:DRHWT0 L 
* K+7:NEXT L:S=S+E:SOUND 1*0*0*0 
1000 E=0 
1010 NEXT OU 

1020 F r OR 8=1 TO 3:F0R J=1 TO 255 STEP 4: 
SOUND 1*0*10*15 :NeXT J:NeXT 8 
1030 SOUND 1*0*0*0 

1040 8RHPHICS 0:? :? :? "YOU DID IT !!!" 
1050 ? :? "VOU KILLED EUERV SINGLE ALIEN 

eons - 

1060 :? "VOU USED "*KK*“ SHOTS OF VOUR 
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flnrio" 

1070 ? :? "THAT SIDES VGU A SCORE OF “;S 

-< KK&2 ) 

1880 ? :? "ANOTHER SANE !i j :TRAP 1080: INP 
UT m 

1090 IF A*< 1,1 >= ,, V" THEN RUN 
1100 ? :? :? :? "THANKS FOR THE GATE!":? 
:? :END 
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TRAP ’EM 

In this exciting one or two player game, you have to try and 
surround your opponent. This is done by using the two 
joysticks to force your opponent to crash. The player to 
force his/her opponent to crash ten times is the winner. 

There is also the availability of playing in two different sizes 
of blocks, large or small. The computer will ask you at the 
beginning of the game as to which size blocks you would 
like to play with. Just respond T for large or ‘s’ for small. 

There is also the feature to play against the computer, 
Arnold. The computer plays quite well but is easily beaten 
with small blocks. Playing the computer using large blocks 
presents a real challenge. 
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10 REP] .?.% irap 1 em Written By tt 

20 REA tt Paul Bunn , FEB 1382 %% 

■5 U H EI *1 -i'- •?. ■ •?- --f. -v- -s ; - -v- - : f. "l -i : - 

40 DI PI ASK 15 >, B$< 15 >, SIX 6 > 

50 GRAPHICS 0:SETCOLOR 4,3,2: SETCOLOF: 2, 
8,2:? “WHAT IS PL AVER l'S NAPE " H INPUT 

60 ? "UO VOU WISH TO PLAY AGAINST THE 
COFIPUTER " ;: INPUT B$: IF B4-C1,1 >="V" 
THEN CnP=l 

?0 ? :IF NOT CAP THEN ? "OK, PLAYER 2'S 
NAP1E "i: INPUT BT-: GOTO 98 
63 Y "0K_ , VUUR GOING TU PLAY AkNQLD." :B 
$=** ARNOLD 11 

90 ? s? " THANK YOU." 

100 ? "DO YOU WISH TO PLAY WITH SHALL OR 
LARGE BLOCKS "H INPUT SL$ 

110 ? :? :? "HIT THE RED BUTTON TO CONTI 
HUE. " 

120 IF STRIG< 0 >=1 AND STRIG<1>=1 THEN 12 
0 

130 ih SL$'- 1,1 J="L" THEN GRAPHICS 13: X1= 
7:Y1=10:X2=33:V2=1G 

140 IF SL$(1,1>="S" THEN GRAPHICS 2l:Xl= 
12:VI=24:¥2=24:X2=68 

150 E1 = 1:F3=1:h2=U:E3=0:E4=0:F1=0: FL=W:F 
4=0 


1 60 COLOR -3 

170 IF SL$( i#l >= n L fl THEN PLOT 2,2 :DRhWT0 
_38,2:DRAWTU 38,23:DRAWTO 2,23:DRAWT0 2, 

180 ih bL$T I , 1 ,f S 11 THEN PLOT 2,22 DRfiHTQ 
7o ,2 - DRftWT0 7b , 4G5 DRflWTU 2 , 4b • ORfiHTU 2 , 

180 LOLOR i•PLU T A 1 ,V1 
208 COLOR 2sPLOT X2,V2 
210 31=STICKX 0>:S2=STI CK< 1> 

220 IF 31=15 THEN 320 
230 SOUND 0,90,10,8 

24b ir S1=7 UR bl=6 UR 31=5 THEN Ll = l5GG 

10 260 
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£50 

L_ i —0 





260 

ih 51=5 UK 5 

1=13 OR S 

1=9 

THEN 

E2=l:6 

07 0 

280 





2 »*' 0 

L2=0 





?80 

IF 31=9 OR S 

1=11 OR 3 

1 = 10 

THEN 

E3=l: 

GOTO 

300 





290 

E3=0 





300 

I r 31=10 UR 

31=14 OR 

61=6 

THEN 

E4=l: 

SOTO 

! 320 





310 

E4=0 





320 

SOUND 0#130# 

10,8:IF 3 

2=15 

AND 

NOT C 


HP THEN 516 

330 IF HOT CriP THEN 430 

340 IF RNEK0 >>0.91 THEN R=INT< RND< 6 >£4 >+ 

i:11=is IF R=i THEN LOCAJE X2+1,V2,0:IF O 

—h THEN F1=1: F2=0:F6=@ ; P 4=ti 

350 Ih II AND R=2 iHEN LOCATE X2,Y2+1 ,>Js 

IF J=0 iHEN Fl=0:F2=l:F3=0:F4=0 

360 If HAND R=3 THEN UXfiTE X2-1,V2,<J: 

IF 0=6 THEN P1=0:F2=@:F 3=1 • F4=S 

i 0 ii“ i. i HPrO ^“4 i HfcN_LULH t E r'i2 i y ^ 1 r 0 ■ 

IF 0=0 THEN F1 =0:F2=@:F3=8 '• F4= 1 
380 IF_F3=1 THEN LOCATE X2-1,V2,K:IF K=0 
THEN 510 

330 IF Fl=l THEN LOCATE X2+1,¥2,K:IF K=0 
THEN 510 __ __ 

400 IF F2=l IHEN LOCATE X2#V2+1,K:IF K=0 
THEN 5i0 

410 IF F4=i THEN LOCATE X2,V2-1#K: IF K=0 
THEN h18 

420 I1=0:SOTO 930 

430 IF 32=7 OR 32=6 OR 32=5 THEN Fl=l:GO 
TO 450 
44@ f1—0 

450 IF 32=5 OR 32=13 OR 32=9 THEN F2=l:6 
OTO 47@ 

460 F2=9 

470 Ir 52=9 UK 52=11 UR 52=10 THEN h3=l« 
GOT0 430 
480 F3-U 

490 IF 32=10 OR 32=14 OR 32=6 THEN F4=l: 


127 




ijOT u 5 i u 
500 F4—0 

510 SOUND 0*8#0*0 


520 

IF 

El=l 

THEN X1=X1+1 

530 

IF 

E2=l 

THEN V1=V1+1 

540 

IF 

E3=l 

THEN X1=X1-1 

j58 

IF 

E4=l 

THEN V1=V1-1 

568 

IF 

Fl=l 

THEN X2=X2+1 

570 

Ih 

F 2= i 

THEN V2=V2+1 

580 

IF 

F3=l 

THEN X2=X2-1 


590 IF F4=l THEN V2=V2-1 

600 REP! %t CHECK IF CRASH XX 

6iO LOCATE X1*V1# C1 

620 LOCATE X2*Y2*C2 

630 Ih C1O0 OR C2<>0 THEN 650 

640 GOTO 190 

650 FOR H=1 TO 30:FOR 6=60 TO 30 STEP 6 

660 IF C1O0 THEN COLOR H:PLOT XI*VI 

670 Ih C2<>0 THEN COLOR H:PLOT X2*V2 

680 SOUND 0*6*10*10 

690 NfcXT 6:NEXT H 

700 GRAPHICS 0:SOUND 0*0*8*0 

710 ? i! “ i: SETCOLOR 2*3*2:SETCGLQR 4*3*2 

720 IF Cl 06 AND C2< >0 THEN ? AT-;" AND 11 

*BT*:bUi0 770 

738 IF C2O0 THEN ? B$*:SC1=SC1+1 
740 IF Cl<>0 THEN ? AT*:SC2=SC2+1 
750 Rfcl‘1 %% Soivitone hvsrs c r asht d 
766 ? " BITES THE DUST.GOTO 786 

779 ? !i BITE SHE DUST. “:SC 1 =SC 1+1:SC2=SC 
E+l 

780 ? : ? 

790 ? " SCORES “ 

800 ? AT j “: “ ; SC 1 i " “ * BT * ": “ * SC2 
810 Ih SCI=10 OR SC2=10 THEN 880 
820 *7 5 ? 

830 IF SCI>=302+5 THEN ? WINNING 

BV hHK ! ! ! 11 s GOTO 870 

840 ih 3C2>=SCi+5 THEN *7** i 111 3 WINNING 
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BV FAR M!":6QTG bV'8 

858 IF SCi=SC2 THEN ? "IT’S A DRfiW AT TH 
E riOPlEN l... 11 : bGTU fc* f © 

860 ? “THERE’S HOT P1UCH IN IT_“ 

870 GOTO 110 

380 ? :? :? :FOR 6=1 TO 255 STEP 2:SOUND 
0 , G , 18 #10:NEXT 6:FOR 6=255 TO 0 STEP -6 
;SOUND 0,6,10,18:NEXT 6:SOUND 0,0,6,0 
890 IF SCI >SC2 THEN ? AWINS THE GAPIE 
"CONgkaTULhTIONS “ifi$:GOTO 920 
900 IF SC2>SC1 THEN ? B$i“ WINS THE GAPE 
“CONGHH i ULflTIONS “ ,b$: GOTO 926 

910 "t “WELL DONE , BOTH OF VOU_“s? "I 

1 1 S H DRfiW ii!“ 

920 END 

930 Rfc.Pl XHRHOLD : S PfiTH Is BLOCKED^ 

940 IF F1=1 THEN LOCATE X2,V2-1,L1:IF LI 
=0 THEN F4=l:F3=0:F2=0:F1=0:GOTO o!0 
950 IF Fl=l THEN F2=i:Fi=@:F3=0:F4=0:6OT 
j 1 y 

960 IF F2=l THEN LOCATE X2~1,V2,L1:LOCfiT 
E _X2+1,V2,L2:1F L1=0 THEN F4=0:F3=l:F2=0 
: i- 1 = 0 : GuTU 510 

970 IF F2=i THEN F2=0:F1=1:F3=0:F4=W:60T 
0 510 

980 IF F3=l THEN LOCATE X2,V2-1,L1:IF LI 
=@ THEN F4=l:F3=0:F2=0:Fl=0:GOTO 510 
990 IF F3=l THEN F2=i :Fl=0:F3=0:F4=0:i3OT 

0 510 

1000 IF F4=l THtN LOuATE X2+1 , ! t‘ 2,L1 : IF L 
1=0 THEN F4=£i:F3=0:F2=£i:Fl=l:GOTO 510 
1010 IF F4=i THEN F2=8: F 1=0: F3=l: F4=0: 60 

TO 510 
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REACTION TIMER 

This short program uses a short machine code subroutine 
to time how long it takes you to press the space bar. If you 
cheat and hold the space bar down, the computer will give 
the worst time possible: 65535. 

To play, type RUN and then as soon as you see an orange- 
coloured dot appear on the screen, press the space bar. 
Sounds simple? Then try and get a time of less than 
16,000!!! 
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10 REP! %%% REACTION TI PIER 
20 REP1 WRITTEN FEB 1382 
30 REP1 %%% BV PAUL BUNN. 

40 FOR L=0 TO 37:READ As POKE 1535+L,A:NE 

50 DATA 104,173,252,2,24,201,33,240,21,1 

83 , 0 , 1 1 1 1 1 j L- \ -1‘ r 1 j I i r 1 {*'• , 25**l1 , 8 , 20 1 , 

£»U DATA 240/ 15,230,212,208,245,230,213,2 
08 3 241,163 3 255 3 133,213 
70 DATA i33,212,96,36 
80 GRAPHICS 0 

30 ? "TO PLAt : WHEN VOU SEE A ORANGE SP 
OT IN THE F1IDDLE OF THE SCREEN , PRESS" 
100 ? "THE SPACE BAR AS QUICKLY AS VOU C 

AN. " 

110 OPEN #1,4,0,"K:“ 

120 ? " READY ? ? ?" 

130 GET #l,AiIF A<>ASC<“V"> THEN 130 

148 ? " y " 

lOU GRAPHICS 13:CULUR 1 

160 FOR L=1 TO INT<RND<0 >$1080 H600: NEXT 


170 PLOT 20,12!POKE 
SR<1535 > 

180 GRAPHICS 0:? :? 
190 IF X=65535 THEN 
SOTO 260 

200 IF X<3200 THEN 
VOUR LIGHTNING FAST 
210 IF X<15000 THEN 


212,0:POKE 213,0:X=U 

“SCORE : “iX 
? "DID VOU CHEAT 

"WHERE DID VOU GET 
REACTION ?":GOTO 26W 
? " EXCELLENT. ": GOTO 


260 


220 IF X<19000 THEN ? “UtRV GOOD INDEED. 
“■GOTO 260 

230 IF X<23000 THEN ? “NOT BAD.":GOTO 26 


240 IP X<28000 THEN ? “PATHtTIC!“:GOTO 2 
60 

250 ? “THAT WAS TERRIBLE! ! !. ..." 

260 ? :? :? "ANOTHER TRY ? <Y-N>" 

270 GET #1,A:IF A=ASC<“V"> THEN 150 
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GOOD BYE 


280 IF_H< >HSC<: “H" > THEN 270 
^yy MjH G=i iy 9sy • NEXT iyi Y 
.":END 
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REVERSI 

Reversi was invented in 1888 and is played on a standard 
draughts board, using double-sided pieces - white on one 
side, black on the other. In his splendid book “Discovering 
old Board Games” (Shire Publications Ltd, Aylesbury, 
1980), R.C. Bell explains that black begins the game by 
placing a piece, blackside up on one of the four central 
squares on the empty board. White replies by placing his/ 
her first piece Whiteside up on another central square. 
“These four squares are covered in the first four turns of 
play, and then the players continue alternately, placing 
their pieces on a square adjacent to one occupied by an 
enemy piece”, Mr. Bell writes. Any enemy piece in a 
straight line between the latest piece played and another 
one of the player’s pieces when the board is completely 
covered, or when neither player can move. 

You’ll find that the computer is very hard to beat but plays 
quite slowly. To enter your move as a single double digit 
number corresponding to the number of squares across by 
the number of squares down. e.g. 45 would be 4 across, and 
5 down. Happy playing! 
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30 HJK B=i IU 10-hUH C—1 IU 10 
40 IF BOl AND CO! AND BO10. AND CO10 
l HEN H<B,C>=46 
50 NEXT_C:NEXT B 

60 A< 5 , ~j >=88 : 0< 6*6 >=88 - A< 8 ,5 >=73: A< 5 ,6 >= 

:' H 8 R~M 

70 bHHPH i CS 7 ■ r'UKE 758 , 1: 3ETCOLOR 4 , 18 , 8 
:SETCOLOR 2 , i 2,2:SETCOLOR 1,0,12:ShTCOLO 
R 0,8,0:OPEN #1,4,0,“Ks" 

80 POSIIION 8,1i:POKE 752, 1: ? “Wou1d you 
I i K 0 t-O QO f i rst ( V- X H ) ? 1 

30 GET #1,A.:IF A< >83 AND A< >78 THEN 30 
100 60SUB 440 


110 

IF A=83 

THEN 356 

120 

8=73:T= 

88:H=0 

130 

FOR ft=2 

TO 3: FOR 8=2 TO 3: IF 0<0,B>< 

>46 

THEN 230 

140 

Q=@ : FOR 

C=-l TO l:FOR U=-l TO 1:K=0: 

F=j-iS 

b=b 


150 

I t X >S THhN 170 

160 

K=K+1: F 

=F+C : 6=6+0:GOT0 150 

170 

II- 0<F+C,6+DX>T THEN 130 

180 

q=q+£ 


180 

NEXT D 


200 

NEXT C 


210 

IF A=2 

OR 0=3 THEN 0=0*2 

220 

IF B=2 

OR B=3 THEN 0=0*2 

230 

IF b—3 

OR B=8 THEN Q=Q.- "2 

246 

IF 0=3 

OR 0=8 THEN 0=0/2 

250 

Ih < H=2 

OR 0=3 > AND (. B=3 OR B=8> THE 

N Q= 



260 
N 0= 

IF < fi=3 

:|Ti /V 

: OR 0=8> AND < B=2 OR B=3> THE 

278 

i r bK H 

OR 0=0 OR •: RND<0 »0.3 AND Q=H 

> THEN 290 


280 

H=Q: F1=fl 

i : H=B 

290 

NEXT B 


300 

NEXT A 
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310 IF H=@ AND R=0 THEN 610 
320 IF H=W THEN 340 
330 GOSUB 540 
340 GOSUB 440 

350 ’? "Hn-at- is your mo vs Renter 1 0‘ it y 
OU C 3n not QO ) “; 

360 3=88:1=79 

370 TRAP 370:INPUT R:TRAP 40000 
380 IF R=0 THEN 420 

390 IF R<Il OR R>88 OR R< >INT'lR> THEN 35 
0 

400 f1= I NT< R--10 >+1: H=R-1 Qt I NT< R/10 >+1 
410 UUbiiB 540 
420 GOSUB 44£i 
43@ GOTO l20 

440 REF1 % % % % DRAW BOARD % % % % 

450 COLOR l:FOR X=44 TO 116 STEP 3:PLOT 
44 jX-44:DRAWT0 116#X-44:PLOT X,0:DRAWTO 
X#72:NEXT X 

460 FOR X=2 TO 9:FOR V=2 TO 9 
470 IF A< XjV >< >46- THEN GOSUB 650 
480 NEXT V:NEXT X 

490 S1=0:S2=S1:FOR X-2T0 9:FOR V=2 TO 9 
:IF A<X*V)=79 THEN S1=S1+1 
Ot )0 IF A'i. , :-: i r v .-*=98 THEN 92=92+1 
510 NEXT Vs NEXT X 

020 ? :? "SCORES s— HE "#32#" VOU 

jf C*1 

530 RETURN 

540 FOR C=~ 1 TO 1: FOR D=-l TO i:F=fl:6=N 

550 IF A<F+CjG+DX>S THEN 570 

560. F=F+C: G=G+D: GOT0 550 

570 IF_fl<F+CiG+O X >T THEN 600 

580 fi<h»8>=T: IF F1=F AND N=G THEN 600 

59@ F=F-CS6=6-0sGOTO 580 

600 NEXT D:NEXT C:RETURN 

610 IF S2>S1 THEN ? "I WON “iS2i"-";Sl 

620 IF S2CS1 THEN ? "VOU WON ,, iSl; I, -“;S2 

630 IF S1=S2 THEN ? "IT’S A DP;AH" 
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640 END 

650 COLOR < H< X ,V >=79 >t 1 -K H< X , V >=38 >t 
660 P=C< X-l>£9>+40:0=< <V-i>&9>-4 
670 PLOT P-l#0-4:PLOT p,0-4 
680 PLOT P-2 # 0-3:DRfiHT0 P+1#0-3 
690 PLOT P-3 # 0—2:DRfiHT0 P+2#0-2 
700 PLOT P— 4#0~1:DRftWTU P+9#0—1 
710 PLOT P—4#u: C»RnWTO P+3#G 
720 PLOT P—3#0+l:ORftMTO P+2#0+l 
730 PLOT P-2 #0+2:DRfiHT0 P+1#0+2 
740 PLOT P-i#0+3:PLOT P#0+3 

750 return 
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SALES ANALYSIS 

This simple business program was designed for 
shopowners, so that they could see how sales were going 
for a particular commodity. The program can be used to 
analyse up to eight goods or services. You input the 
number of sales for each month for each goods/service. 
The number of sales must not be above 84. 

After all data has been entered, you will be able to see the 
data on the screen so that you can alter anything if you so 
desire, say a mistake on data entry. The data will then be 
displayed visually, in the form of a graph. The red line 
indicates the average. 
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10 Kfc.11 WX SALES ANALYSIS tt 

20 GRAPHICS 0:POSITION 11,0:? “SALES AHA 

LYSIS" 

30 POSITION 17,1:? “BY" 

46 POSITION 10,2:? “PAUL BUNN IN 1982" 

00 UIH f l$< 1 2X9 >,T $< 15 >,GK 12 >: Pl$< 1 >= “ ": PI 

■$>: 108 >=" “: n*<: 2 >=n$ 

60 FOR P1=0 TO 11: READ T$,J:fl$ai$9+l,Pl$9+ 

9 >=T$: GK PH 1 >=J: NEXT PI 

70 DATA JANUARY , 7 , FEBU AR V , 7 , PI ARCH , 5 , APR I 
L , 5 , MAY , 3 , JUNE , 4 , JULY , 4 , AUGUST , 6 , SEPTEMB 
ER , 9 , UC T OBER , 7 , N0UEP1BER , 8 
80 DATA DECEMBER,8 
90 OPEN #1,4,0,"K:" 

100 POKE 784,80 

110 ? :? :? “press- ‘RtTURN' loWen ready." 
120 GET #i,A: IF AO 155 THEN 118 
130 ? :? 

140 ? 11 How many 9 GQds/sev i ces are sold “ 

i:TRAP 140:INPUT I:TRAP 40006 

150 IF I<>INT<I> OR I<1 OR I>8 THEN ? “ 

BETWEEN I & 8":GOTO 148 

160 DIM 6S$< 15:$:I ): GST-( l >=" “ : GS$< 15LI >=“ 

* ii . ,= 05T 
i7@ FOR P=i TO I 

1 o0 Y 5 Good 11 ;P ; 11 = M ; ■ i RhP 1805 INPUT TT 5 T 
Rftp 40000 

130 bbT( ( F 1 — 1 >$ 1 5+1 * \ r —1 >$ 1 5+ 14 :«=TT 
£00 NEXT P 

210 Y s? 5? ** Thank you...* 1 
220 Din 5Hi_EzT 1 I >*PR5NT*-. 1 > 

£30 ? : ? press 1 RETiJRN 1 to eont i nue. Jl 
240 GET #1 *h:IF H<>155 THEN 240 

r uR z i — 1 TO 15 t 11 jbs les ana I ys i s of 11 
i 6Sf< k S- i )$ 15 h-1, < S-1 )$14415 > 

260 TRhP 2605? 11 Input last years avaraye 
sa 1 e < enter 1 @ * i f not k nourn > 11 i: INPUT 
flsPRSNT<S }=fl 
2 ?U FUR IT=1 Tu 12 

280 ? ! y “ iP"lT< < PI—1 X£94l,«: PI—1 >$3+9 > 
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290 ? ,! " i : FOR P=1 TO Q>:' p] v “ “ : NEXT 

p:? :? 

30-0 R’EPl %% AnaIyse sales S 

3i0 ? "Sales analysis of i: i GST-(S~ 1 >% 15+ 

1 S— 1 as 14+15 ) 

320 TRAP 320:? :? "TOTAL SALES INPUT 
_P: SflLESC PUS >=P 

330 IF P>34 THEN ? “PlOXIHUPl NO. OF SALES 
IS 84! 11 : GOT0 320 
340 TRAP’ 40W00 
350 NEXT Pi: NEXT S 

380 ? :? :? "j-S-ales analysis complete. 11 
370 •? : v “Would you like to check ";: TRA 
P 370: INPUT T$: IF T$< l,l>= u n» THEN 500 
380 FOR Pl=i TO I:? "}“:FOR P2=l TO 12 
390 ? P2i “ >" ;Plf< < P2-1 >tS+ 1,< P2-1 >&9+9 >," 
SALES=*'iSALhS< P2#P1 > 

400 NEXT P2 

410 TRAP 430:? "Alter anything <enter nu 

mber: INPUT T: TRAP 40006 

420 IF T>0 AND T<13 THEN GOTO 450 

430 NEXT Pi 

446 GOTO 586 

450 ? "Enter new sales for “ i p]s< < T-1 >£3+ 

1 1 < T-1 XsS+d > i 

460 TRAP 460:INPUT W:IF W<0 OR W>84 THEN 
? “Be-tween 1 and 84!":60T0 460 
478 TRAP 40060 
486 SALESfT,P1>=H 
496 GOTO 410 

586 ? !? :? " Now to see graphs. 11 
518 GUT0 1470 

528 REi'l XXDRAW GRAF'H SUBROUTINES 
530 RESTORE :FOR W=1 TO 24: READ Tf-: NEXT 

M 

540 COLOR 1:PLOT 5*0:DRAHTO 5,83:DRAHT0 

159,83 

550 FUK K=78 10 4 STeF‘ ~4 

560 PLOT 2,K:DRAWTQ 4,K:NEXT K 

570 FOR K=13 TO 159 STEP 13:PLOT K,84:DR 
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flWTG K * 8t 
080 FOR 
590 READ 
680 NhXT 
610 NEXT 
620 UNTO 
636 DATA 
640 DATA 
650 DATA 
660 DATA 
670 DATA 
680 DATA 
690 DATA 

700 data 

710 DATA 
720 DATA 
730 DATA 
740 DATA 
750 DATA 
760 DATA 
770 DATA 
780 DATA 
790 DATA 
808 DATA 
810 DATA 
820 DATA 
830 DATA 
840 DATA 
850 DATA 
360 DATA 
870 DATA 
330 DATA 
890 DATA 
900 DATA 
910 DATA 
320 DATA 
930 DATA 
940 DATA 


.1=88 TO 94: FOR iz=-y, jtj 3 
A: IF A=i THEN PLOT K+I2-I1 
12:NEXT II 

K 

0 , 0 , 0 , 1 * 0 * 0*0 
0 - 0 * 0 , 1 , 0 , 0,0 
0-0-0,l-0,0,0 
0 - 0 * 0 , 1 , 0 , 0,0 
0 - 0 - 0 , 1 * 0 * 0,0 
1 - 0 , 0 , 1 , 0 , 0,0 
0 - 1 - 1 , 0 , 0 , 0,0 
1 - 1 - 1 - 1 - 1 - 1-0 
1 - 0 , 0 , 0 , 0 , 0,0 
1 , 0 , 0 , 0 , 0 , 0,0 
1 - 0 , 0 , 0 , 0 , 0,0 
1 - 1 - 1 , 1 , 0 , 0,0 
i-0,0,0,0,0,0 
1 , 0 , 0 , 0 , 0 , 0,0 
1 , 1 , 0 , 0 , 0 , 1,1 
1 - 0 - 1 - 0 , 1 , 0,1 
1 - 0 - 0 , 1 , 0 , 0,1 
1 - 0 - 0 - 1 , 0 , 0,1 
1 , 0 , 0 , 0 , 0 , 0,1 
1 , 0 , 0 , 0 , 0,@,1 
1 - 0 , 0 , 0 , 0 , 0,1 
0 - 0 , 0 - 1 , 0 , 0,0 
0 , 0 , 1 , 0 , 1 , 0,0 
0 - 1 , 0 , 0 , 0 , 1,0 
0 - 1 - 1 - 1 , 1 , 1,0 
0 - 1 , 0 , 0 , 0 , 1,0 
0 , 1 , 0 , 0 , 0 , 1,0 
0 - 1 , 0 , 0 , 0 , 1,0 
l-i,0,0,0,1,1 
1 - 0 - 1 , 0 , 1 , 0,1 
1 - 0 - 0 , 1 , 0 , 0,1 
1 - 0 - 0 , 1 , 0 , 0,1 
1 , 0 , 0 , 0 , 0 , 0,1 
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950 DfiTfi i,0,@,0,0,0,1 
960 DfiTfi i, 0,0*0,0,0,1 
970 DfiTfi 0,0,0,1,0,0,0 
■io@ DfiTfi 9,0,0,1,0,0,0 
990 MTfl 0,0,0,1,0,0,0 
1000 DHTfi 0,0,8,i,0,0,0 
1010 DfiTfi 0,0,0,1,0,0,0 
1020 DfiTfi 1,0,0,1,0,8,0 
1030 DfiTfi 0,1,1,0,0,0,0 
1040 DfiTfi 0,0,9,1,0,0,0 
1050 DfiTfi 0,0,0,1,0,0,0 
1060 UftTfi 9,9,0,1,8,8,9 
10,-8 DfiTfi 0,0,0,1,0,0,0 
1080 DfiTfi 0,0,0,1,0,0,0 
1090 DfiTfi 1,0,0,1,0,0,0 
1100 UftTfi 0,1,1,9,0,0,0 
lil0 DfiTfi 0,0,0,1,0,0,0 
1120 DfiTfi 8,0,1,0,1,8,0 
1130 DfiTfi 0,1,0,0,0,1,0 
1148 Dfiifi 0,1,1,1,1,1,0 
1150 DfiTfi 0,i,0,8,0,1,0 
1168 DfiTfi 0,1,0,0,0,1,0 
1170 DfiTfi 0,1,0,0,0,1,0 
1130 DfiTfi 0,1,1,1,1,1,0 
1190 DfiTfi 1,0,0,0,0,0,0 
1208 DfiTfi 1,9,8,8,8,0,0 
1210 DfiTfi 0,1,1,1,1,1,0 

1229 DfiTfi 8,8,0,8,0,0,1 

1230 DfiTfi 0,0,0,0,0,0,1 
1240 DfiTfi 0,1,1,1,1,1,0 
1250 DfiTfi 8,0,1,1,1,0,8 
1268 DfiTfi 8,1,8,8,8,1,8 
1270 DfiTfi 1,0,0,0,0,0,1 
1238 DfiTfi 1,8,8,8,8,0,1 
1290 DfiTfi 1,8,0,8,8,0,1 
1300 DfiTfi 8,1,0,8,0,1,0 
1310 DfiTfi 0,0,1,1,1,0,0 
1328 DfiTfi 1,8,0,8,0,8,1 
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1336 DATA 1,1,0,0,6,0,1 
1340 DATA 1,0,1,0,0,0,1 
1350 DATA 1,0,0,1,0,0,1 
1360 DATA 1,0,0,0,1,0,1 
1370 DATA 1,0,0,0,0,1,1 
1330 DATA 1,0,0,0,0,0,1 
1^90 DATA 1,1,0,@,0,0,0 
1400 DATA 1,0,1,0,0,0,0 
1410 DATA 1,0,0,1,0,0,0 
142W DATA 1,0,0,0,1,0,0 
1430 DATA 1,0,0,0,1,0,0 
1440 DATA 1,0,0,1,0,0,0 
1450 DATA 1,1,1,0,0,0,0 
1460 RETURN 

1470 KEPI &X DRAW GRAPHS XX 
I486 ? “sales on y-axis" 

1490 ? “Plont-hs on x-axis" 

1500 ? !? 11 red line indicates avaraoe. H 
1510 FOR 6=0 TO 1-1:? “Graph for sales o 
t “ i bb$< bX 15+1 j bX 15+14 
1520 ? s { 'ready ??“ 

1530 GET #1,A:IF A<>ASC<"9“) THEN 1536 
1540 GRAPHICS 7+16:SETCOLOR 0,0,0:SETCOL 
OR 4,2,8:S08UB 526 

1550 SETCOLOR 1,7,4:COLOR 2:SETC0LGR 2,3 

j4 

1560 PLUT 6 * 64-PRoNT*: G+1 > 

1570 FOR K— 13 TO 156 STEF* 13 
1580 DRHHT0 K*34—SOLES< k> 13* 6+1> 

1530 NEXT K 

1600 1 =0: FOR H=1 TO 12:T=T+ShLES<H*S+1>: 
NEXT W • OUkGE=T-*’ 12 

1610 COLOR 3 s PLOT 6 * 34-OURSE • DROWT0 159* 
84-ftURSh 

1620 GET *i,0: IF 00155 THEN 1600 
1630 NEXT 6 

1640 GKHPH 1 Lb 02 f i s cOiftpltt-8 11 sE 

ND 
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OLD FORTY-NINER 

This game is like checkers, except it is played on a seven by 
seven board (rather than eight by eight, as in checkers). The 
pieces move as checkers pieces-diagonally one square, 
jumping over an opponent for a capture, into an empty 
square beyond. The main difference from checkers, apart 
from the size of the board, is that pieces may move forward 
and backward at will. There are no ‘kings’, as every piece can 
move as if it is a king, and there are no multiple jumps. 

The computer is the X’s moving down the screen, and you 
are the O’s. You move by entering the number of the square 
you’re moving from (entering the number along the left hand 
edge first, then the number along the top, then pressing 
RETURN) then the number of the square you’re moving 
from. 

The computer keeps track of the score, tells you (before it 
moves its pieces) which square it is moving to, and 
terminates the game as soon as one player manages to 
capture five of the opponent’s pieces. 

The program shows some structured programming tech¬ 
niques. Line 30 sends the action to a subroutine at the end of 
the program which initialises the variables. The computer 
then goes to its move routine, starting at 7000. Having made 
a move, it returns to the start of the program, and from there 
goes to the subroutine at 8000 to print out the board. From 
there it goes to subroutine 6000 to accept the player’s move, 
8000 to reprint the board, then back to the computer’s next 
move . . . and so on. 
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The advantage of working in this way - with a specific sub¬ 
routine for each section of the program - is that you can 
easily alter part of the program which appears unsatis¬ 
factory, without facing the danger of running out of lines, or 
of ‘getting lost’ in the program. Placing the variables 
assignment at the end has the advantage that you can add 
new ones, as the need for them becomes apparent, without 
any real problems. 
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10 REP! OLE FORTY-NINER <7X7 CHECKERS> 

20 REM <C > HARTNELL 1982 

30 GOSUB 9000sREP! INITIALISE 

40 60SUB 7000: REH COMPUTER PIQUES 

60 GOSUB 8000:REH PRINT BOARD 

70 GOSUB 6008: REP! ACCEPT PLAYER HOME 

90 GOSUB 3000:REP! PRINT BuARD 

1000 GOTO 48 

6000 PRINT 

6050 PRINT “FROPT; 

6060 INPUT H 
6070 PRINT "TO"; 

6080 INPUT N 
6090 H< N >=120 

6095 IF ABS< M-N>=22 OR ABS<P1-N>=18 THEN 

H< < H+N >/2 >=46 

6097 IF ABSC fl-N>=22 OR ABS<P1-N>=18 THEN 

PlE=HE+i 

6100 H< PI >=46 

69961 FlETURN 

7000 REP! COMPUTER PIQUES 
7£il0 FUR: A=76 TO 12 STEF' —1 
7020 IF H< A X >111 THEN 7060 
7030 FOR B=1 TO 4 

7032 IF A<28 AND B<3 THEN 7050 

7033 IF A>60 AND B>2 THEN 7060 
7035 Q=2£Z< B > 

7040 IF H< A+Z<B>>=120 AND H<A+Q>=46 THEN 

7076 

7050 NEXT B 
7060 NEXT A 
7065 GOTO 7300 
7070 HCA+Z< B > >=46 
7080 H< A >=46 
7090 H< A+Q >=111 

7092 V=fi+Q 

7093 X=A 
7095 IT=IT+1 
7100 RETURN 
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7290 NEXT A 

7300 REN RANOOPi PIQUE 

7319 V=0 

7320 V=V+1 

7330 K=INT< RND< 1 >&66>+12 

7340 IF H<KX >111 AND V<100 THEN 7320 

7350 IF H< KX >111 THEN 7460 

7360 FOR t = I Tu 4 

7370 IF H<K+Z< T>>=46 THEN 7400 

7380 NEXT T 

7390 IF ¥<70 THEN 7310 
7395 GOTO 7460 
7400 H< K+Z<T >>=111 
7410 H< K >=46 
7415 X=K:V=K+Z>: T> 

7420 RETURN 

7460 PRINT "I CONCEDE" 

7470 END 

7990 RETURN 

8000 REF1 CLEAR SCREEN 

8010 PRINT 

8015 PRINT "I PIQUED FROP1 M sXs" TO ";V 
8017 PRINT 

8020 PRINT "SCORES: VOU: ";P1E;" PIE: 

T j 

8840 PRINT :PRINT :PRINT 
8050 PRINT 1234567“ 

8660 FOR J=?& TO 10 STEP -10 

8070 A=H< J+1 > -* B=H< J+2 >: C=H< J+3 >: D=H< J+4 > 

: E=H< J+5 >: F=H< J+6 >: G=H< J+7 > 

8080 PRINT *.J--' 10 ;"#“ iCHR^C A > ; CHR$< B ) iCHR 
$■:; c: >iCHF»t; D >iCHR*< E >iCHR*< F >;CHR$< 6 
iJx'10 

8090 NEXT J 

8110 PRINT 1234567" 

3120 IF IT=5 OR P!E=5 THEN 3140 
8138 RETURN 
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3140 IF IT=5 THEN PRINT "I MIN'" 

8150 IF PE=5 THEN PRINT "VOU HIN 1 " 

8999 tND 

3009 REiPl INITIALISE 
9010 IT=0:f1E=0 
9020 DIN hK 99 >,Z< 4 ) 

9030 FOR fi=l TO 99 
9040 H* fiJ=0 

3050 TF R> 77 OR fl=?0 OR OR 

R=68 OR fl=69 OR R=50 OR R=59 OR 

R=5S OR R=4-0 OR R=4-9 OR R=48 THE 
N GOTO 9090 

3055 IF R=30 OR R=38 OR R=39 OR 

R =20 OR R =28 OR R =23 OR R t il THE 

N GOTO 9090 

9060 H-: H >=46: REN . 

9070 IF 14=72 OR 14=74 OR H=76 OR (4=61 OR 

H=63 OR fi=65 OF: A=67 THEN H< A 4=111 

9060 IF H=21 UR (4=23 OR 14=25 OR H=27 OR 

A=12 OR A=14 OF: A=16 THEN H<fi>=120:REPl x 

9090 NEXT H 

9100 FOR (4=1 TO 4*.READ B:Z<H4=6:NEXT A 
9110 DATA -11,-9,11,9 
9200 RETURN 
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GANYMEDE IV 

This game, in the HUNT THE WUMPUS genre, places you in 
a maze of tunnels on Ganymede 1V, where-if you survive for 
25 minutes-you’ll be rescued. There are beasties, gems and 
other things to deal with. The beasties tend to kill you, the 
quicksand is inescapable, the gems may make you rich (if 
you survive), but the space warps are the worst of all. Enter a 
cave containing one of these and you will be transported to 
another cave in the system. From time to time your computer 
will print out the cave system as seen from above. 

Once you’ve got this program up and running, you can use 
the basic framework to create as many HUNT THE 
WUMPUS type games as you like, placing contents and 
animals of your own choice in the caves. There is also a lot of 
scope for adding colour, sound and graphics to the program. 

The game is straightforward to play. You start in cave 
(‘sector’) 55, and can move up, down, right or left one square 
at a time. Your Atari will warn you when things are nearby, but 
due to a defect, will only tell you of the contents of one nearby 
cave/sector, and not of all of them. It will not tell which of the 
nearby caves it is describing. A cave is empty after you leave 
it, so you cannot revisit a gems cave over and over again to 
enrich yourself. If you enter a quicksand cave, the game ends 
with a printout of the whole system. The same happens if a 
beastie eats you. 
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i@ Rtf'] * * * £ * GfiHVPlEDt IU $ * * * * 

28 REF'] ( c ) Hartnei I 1382 
30 RE PI 

40 GR fiPH ICS 9: DI PI Q$< 11>, ft< 100 > , Zi< 2 > s DL 
=PEEKX 560 >+256*PEEK< 561 >+4: POKE DL-1, 76: 
POKE UL+2,6:POKE 752,i:E=53 
50 FOR X=1 TO 11: READ Y: 6$< X, X >=CHR$< V >: 
HEX S _£ 1 DATH 71,37,238,88, 1 03,228,68, 1 0 1 , 
82,283,86 

60 SEiCOLOR i,6#10:SETCOLOR 2,0,0:SETCOL 
OR 3,11,10: OPEN # i , 4,8 , " K: “: St i COi_OK 0 ,1 
4,10 

70 FOR X=i TO 11:POSITION X+3,0:? 6$<X,X 

j 

80 FOR V=15 TO 0 STEP -1: SOUND @,X*20,S, 
V:NEXT V:GOSUB 100:NEXT X 
90 GOTO 120 

100 fl=PEEK<70S>:POKE 708,PEEKX 709 >:POKE 

709,PEEK! 711>:POKE 711,fi:RETURN 

110 ? CHR$<i25>:POSITION 4,0:? 6$:RETURN 

120 FOR X=1 TO 100:H<X>=46: IF X<12 OR X> 
90 THEN fl<X >=47 

130 Z$=STR$< X*10 >:IF Z$<2>= ,, 0 , ‘ OR Z$e2>= 
"1” THEN PKX >=47 

140 GOSUB 100:SOUND W,< INTI X^3 K >X-"3 >*X, 
8,8:NEXT X:SOUND @,0,6,0 
130 F OR X= 1 TO 6: fl< I NT 1 ! RMX 0 >*76+12> >=47 
:fl<INT<RNDe6 >*76+12 >>=63:ftCINTCRNDe &>*76 
+ 12>>=66 

160 fie INT< RNDe 0 >*76+12 > >=81: fK INTC RND< 0 > 
*76+12 > >=71:GOSUB 100: SOUND 0,X*1@,12,8: 
NEXT X:SOUND @,0,0,0 

176 FOR X=255 TO 0 STEP -5:SOUND @,X,12, 
15:GOSUB 100:NEXT X:SOUND 0,0,0,0 
1 80 fie E>=72:Q=INT< RND <0 >*7 >:IF Q=0 THEN 
GOSUB 1640 

190 0=1:? "You are in cave number ";E: IF 
6>0 THEN ? "With Ganymede gems worth $■" 
ifG 

206 GOSUB 800:? :? :? "You must survive 
for another "j 25-H:? "more minutes!":? 
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210 

? > ? 1 ? 5i HH i C h 

direction to you want 

to 

t'iiO V€ i; 


220 

? 15 ( Nor th , Sout 

h,E-ast or West> ?";:PQ 

Kt 764*255 


230 

I r PbEK 1 -. 764 H > 

235 THEN GET 41, b: 


HRTc2 >: K=@:X=X+< Z$= " W" >+< Zt-= " S “ >+C Z$= “E" 
>+< 2$=“H">: IF X=1 THEN 258 
246 GOSUB 100:FOR X=1 TO 30:NEXT X:60T0 

p T7|T-j 

250 ij=0: POKE 764,255: IF 2$=”N ,i THEN ? "N 
ORTH" 

260 IF 2$=“6" THEN ? "SUUiH" 

270 IF 2T =,i E" THEN ? "EAST" 

280 IF Z$="W" THEN ? “WEST" 

290 FOR X=l5 TO 0 STEP -0.4:SOUND 0,E,10 
,X:GOSUB 100:NEXT X 

300 IF Z$-= “N" HND AcE-10>=47 THEN U=1 
310 IF Z$=“S" HND A<E+10>=47 THEN U=1 
320 IF Zt-= "E" AND ACE+i >=47 THEN U=1 
330 IF 2$="W i ' AND A<E-1>=47 THEN U=1 
340 IF U=1 THEN ? :? "Blocked tunnel !!. 

. . “: FOR X=8 TO 3*. FOR V=3 TO 28 

350 IF U=1 THEN SOUND 0,V,10,15:SOUND 1, 

¥+3,10,15:NEXT V-NEXT X:SOUND 8,8,0,0:30 

UNO 1,0,0,0:GOSUB 110:GOTO 190 

368 AC E>=46: E=E+< Z$="E" >-<Z*="H" >-K Z$="S 

11 >X10-c 2#-=“N ,i >X10: F=E 

378 IF A< F >=63 THEN GOSUB 440 

380 IF ACF >=66 THEN GOSUB 550 

390 If ACF>=81 THEN GOSUB 688 

400 IF A< F >=?1 THEN GOSUB 730 

410 GOSUB 110:H=H+i:IF H=25 THEN Q=9:G0S 

UB 980 

428 GOTO 180 

430 REN * % SPACEWARP CAGE % t 

448 GOSUB 110:? “WARNING:you have Just e 

ntered a cave" 

458 ? "containing a SPACEWARP!!.." 

460 ? : ? " Vou are nou* go i ng to be trans 
ported" 
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478 ? "to another cave....STAND BV!" 

488 FOR X=4 TO 58 STEF* 5:60SUB 188 
498 FOR V=38 TO 258 STEP X 
588 FOR Z=0 TO 3:SOUND Z,Y+Z,10,15:NEXT 
Z:NhXT v:NEXT X 

510 FOR Z=i TO 3:SOUND Z,0,0,0:NEXT Z 
528 FOR X=255 TU 0 STEP — 2:SOUND 8,X,12, 
15:NEXT X:SOUND 8,0,0,0 
530 A< E >=0: E= I NT< RND< 0 >$76+ 12 >: RET URN 
548 REfl % % BEASTIE CAME $ $ 

558 GOSUB 110:? “WHOOPS! There 1 s a BEAST 
It in herej!!" 


560 FOR X=i iO 15:FOR p-255 TO 50 STEP - 
25:SOUND 0,P,10,15:NEXT P:GOSUB 100:NEXT 
X:SOUND 0,8,0,8 

578 P1=RND< 0>: IF PK0.2 THEN ? :? "But luc 
k i I y f or you , i t has not “: ? ! * detec te-d y 
our presence":GOTO 640 

588 ? "AND IT SEES YOU ! ! !." 

598 FUR X=255 TU 0 STEF* — l:SOUND 0,X, 18, 
15:NEXT X 

688 IF PI>0.8 THEN ? :? "But it decides n 
ot to eat you beeause":? "humans yive F.i 
n i nd i yest i on. 11 : GOTO 648 

610 ? :? "AND HE EATS YOU." 

628 FOR P=1 TO 3:? "HUNCH.GOSUB 100: 
FOR X=@ TO 5:FOR Y=1 TO 5:SOUND 8,X,8,X: 
NEXT V 

630 NEXT X:NEXT p:SOUND 8,0,0,0:GOTO 980 
640 ? :? "HIT ANY KEY":POKE 764,255 
650 IF PEEK*- 764 X >255 THEN GET #1, A‘.POKE 
764,255:RETURN 

660 FOR X=i TO 30:NEXT X:GOSUB 180:GOTO 
650 

678 RED $ $ QUICKSAND CAUE % % 

688 GOSUB 110:? "You have entered a cave 


containiny" 

698 ? 11 QUICKSAND! !!!!!! 


708 FOR F-l TO 
D 0,X,8,15:FOR 


35: X=INT<; RNEK 0 >$8+4 >: SOUH 
Y=1 TO 30:NE;KT Y: GOSUB 10 
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0JNEXT P 
710 GOTO 930 

720 RET! t % GftNYPlEDE GB1S OWE * t 
730 GO-SUB 110i? " Well done , you nave f 
ound some 11 

748 '? 11 Ganymede oems! j “ 

750 ? • ? " They are u«ort-h 

760 K= I NT < RND< 0 ')% 1 00 >+50:'? K i " ! " 

770 6=G+K:FOR ¥=1 TO 20:FOR X=3+Y*3 TO 2 
9+Y$3:SOUND 0*X,10,l5:NfcXT X:SOSUB 100:N 
EXT Y:SC«UNU 6#0^0#0 
730 RETURN 

790 REP1 * t SECTOR CftUE SOWN X % 

300 L=4G:IF fit E-11 >046 THEN L=flCE-ll> 
810 IF PK E~10 X >46 THEN L=H<E-10> 

820 IF TKE-9XM6 THEN L=fKE-9> 

830 IF H( h-1 X >46 THEN L=H<E-1> 

840 IF GKE+1 X >48 THEN L=H<E+1> 

850 IF PK t+9 X >46 THEN L=PKE+9> 

860 IF fi<E+10X>46 THEN L=fl(E+l@> 

370 IF H< E+ll X >46 THEN L=PKE+11> 

880 IF L=46 THEN RETURN 
390 ? “Computer reports:-" 

900 IF L=47 THEN ? "E;locked tunnel “; 

310 IF L=63 THEN ? "Space warp " ; 

920 IF L=66 THEN ? "Ganymede BEfiSTIE "i 
930 IF L—dl THEN ? "Quicksand cave " ; 

940 IF L=71 THEN ? "Ganymede yems " 

950 ? "nearby":? :? 

960 RETURN 

370 REP1 % % END OF P1ISSION % % 

980 IF GK >0 THEN 1000 

990 ? :? “END OF P1ISSIGN - YOU ORE DEfiO" 
1000 PKE>=72:? :? "YOU SURUIUED FOR “iHi 
" niNUTES"; 

1010 IF H=25 THEN ? " ..WELL DONE" 

1020 IF H< >25 THEN PRINT 

1030 ? "PtND FOUND GEHS WORTH $";6 
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1048 ? :? “Ganymede sector profile:":? 
1050 FOR -J=0 TO 90 STEP 10 
10S0 H=fi( J+1 >: N=fi< J+2 >: G=fK J+3 ;>: P=fi< J+4 ) 

: Z=fi< J+5 >: H=£K J-hB >: S=fi< J+7 >: T =i¥. .J+8 >: U=fi 
<J+9>:U=ft(J+l0 > 

1078 ? CHR$< fl >iCHR$< N >iCHR$< 0 >*CHR$< P >#C 
HR$< Z >;CHR$< R >;CHR$< S >;CHR$< T > jCHR$< U >iC 
HR$<U>:NE*T J 

1080 FOR J=i TO 208:SOUND 0,J,4,10:NEXT 

J:SOUND 0#0,0,0 

1090 IF Q<>0 THEN END 

1100 ? "HIT START KEV TO CONTINUE" 

1110 POKE 53279,0:IF PEEK<53279X >S THEN 
1110 

1120 SGSUB 110:RETURN 
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MAZE-RUNNER 

If you like difficult puzzles, then you’ll love this game. It took 
me more than a week to design the maze, and longer than 
that to convert it into numbers which the computer under¬ 
stands. 

The maze is three times bigger than the screen size of a 
graphics mode 5 screen! 

I designed this program to utilize a method of scrolling 
which I thought of. By altering the fourth and fifth byte of 
the display list (which are pointers to the screen memory 
area), you can scroll up or down by adding or subtracting 
the number of bytes in a scan line. This is the technique 
used in this program. 

Once you’ve given up trying to solve the maze, you can see 
‘Arnold Atari’ do it. 
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•;EPl 


. v ..y 




v-v- 


2 REfl 3 f'lfiZE RUNNER-WRITTEN t 

3 REfl * BV PAUL BUNN AND IAN NICQL X 

4 REfl ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ 


REfl 


6 REP! 

10 (-UK U=1538 TO 1536+7:READ C:POKE U,C: 
NEXT J:DIH Q$< 1> 

20 uATA i04,165,203,37,204,133,205,96 
30 GRAPHICS 5:SETCOLOR 0,4,6 
40 A=PEEK<560 >+256£PEt*X561):POKE 752,1 
50 W=PEEK< A+4 H256SPEEKX A+5 > 

60 W=W-25W0:X= INT<W--256>: V= INT<H-XX256 >: 
B=H 

70 POKE A+4,V: POKE A+5,X: IF PEEKXW>=S5 T 
HEN 110 

80 ? 11 PLEASE WAIT.": TRAP 110: RESTORE 770 
90 READ C 

100 POKE B,C:B=B+1:GOTO 90 
110 TRAP 40800:RESTORE 110 
120 REP1 ZZ HA IN LOOP ZZ 

13m "Would mou like arriold to try it- " 

;: "INPUT 6$: IF G$=“V‘ THEN E=1*-V=E 

140 FOR I=W+2319 TO W+2319+C3&20> STEP 2 

0:POKE I,255:NEXT I 

150 L=480+H: f'l= 16: ? "O'*: POKE 752,1 

160 POKE L,<PEEK<L>+f1> 

170 IF NOT E THEN O=STICKX0>:POKE 77,0 
130 R=R-1 

190 IF E AND R<1 THEN READ 0,R 
200 IF 0015 THEN POKE 53279,0 
210 IF PEEK*! L+l >=255 AND fl=l THEN GOTO 7 

00 

220 IF 0=14 THEN GOSUB 420:POKE L,<PEEKX 

L >—N>:L=L-20:60SUB 270:GOTO 160 

230 IP 0=13 THEN GOsUB 450: POKE L,<F'EEK< 

L >-ri): L=L+20: GOSUB 3U0: GUTU 16:0 

240 IF 0=7 THEN POKE L,PEEK<L>-fl:ri=INT<n 

/4 >:GOSUB 370:GOTO 160 
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250 IF 0=1 i THEN POKE L#PEEKCL>-fl:N=fi*4: 

GOSUB 3201 GOTO 160 

260 GOTO i?0 

270 P=PEEKCA+4 >:P=P-20 

280 IF P<0 THEN POKE A+5#PEEKC A+5>-1:P=P 

+256 

28o puke a+4 -»p • Ft turn 

300 F-PEEKCfl+4>:p=P+20:IF P>255 THEN POK 
E H+5 ,PEEKCfl+5>+1:P=P-256 
310 POKE A+4#P:RETURN 
320 REN 

330 IF PI>255 THEN P1=1:L=L-1 

340 POKE 203#PEEKC L ):POKE 204#N:K=USRC15 

36 ) 

350 IF PEEKC205>=N THEN N=INTCN/4>:GQSUB 
370:GOSUB 480 
3bO RETURN 
370 REN 

380 IF N=0 THEN N=64:L=L+1 

390 POKE 203#PEEKC L >:POKE 204#N:K=USRC15 

36 > 

400 IF PEEKC205>=fl THEN N=N*4:GOSUB 320: 
GOSUB 480 
418 RETURN 

420 J=PEEKC L-20 >: POKE 203,J: POKE 204#N:K 
=USRCi536> 

430 IF PEEKC205 >=N THEN POP :GOSUB 480: G 
OTO 170 
440 RETURN 

450 d=PEEKC L+20 >:POKE 203#J:POKE 204#N:K 
=USRC1536 > 

460 IF HtEKC 205 >=N THEN POP :GOSUB 4:3 m: G 
OTO 170 
470 RETURN 

480 FOR 1=10 TO 0 STEP -1: SOUND 0#C L--256 

>#10#IS NEXT I:RETURN 

480 DATA 14#i0#7#4#14#4#11#4#14#9 

500 OATH 7#4#13#4 

ol0 uATA { #6# li#-i# i-' #2#14#2#«" #2#lb#5#ll#l 

n.'3.7.9.n.A.7.«!.n.7 
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520 DATA 7*12*14*10 

j 30 DATA 11* i*'*14*2* »' *11*14*5 * i* *2*1 5*5*11 
*4*1--** 10* r * 1* 15*2* 11 *ii 

D40 DA i A L3*b* 7 *4* 14*3* 11*1* 14*2* f *5*1-5* 
13*8* 100* 11 *4* 15**5* i‘ *2* 15*6** i*‘ *5*8* 100 
550 DATA 13*2*7*3*13*31*11*21 
5£»D DATA 14*8* 11 *6* 14*2* r *8* 1 -5* *8* r * 1«' * 14 
*2*11*3 *14*2*7*3*14*2*11* .5*14*2*11*8*14* 

4 * { ’ * il. * 1 -5* * a * »* * r 

j 0 DMI A 14*2* 11 *5* 14*2*r**5* 14*2* 11 *5*14 
* 2 * r* * 5 * 14 * 9 * 11 * & * 1 5 * 2 * o * r 5 
0o0 iJh I A i *4*^-5*5* 11 *b* 1-5*2* 11 *4* 14*2* i‘ * 

1 * 14*5*11*2*13*3 

o30 DMTA 11*2*1 *5* 1*11*5* 14*2* f *-5*14*1* «** 
*5*14*3* 11 * ti* 14* 1 £**^i 1^*-5* 1 -5*2* 11 *2* 1 >5*2* i** * 

5 * 1 - 5 * 2*11 * -5 * 1 -5 * 2 * { * -5 

600 Dm i A 1 >5 * 2 * 11 * >5 * 1 >5 * 2 * i** * >5 * 1 >5 * 6* 

610 DATA 7*2*13*2*11*2*13*4*11*2*14*10*1 

1 *5*15* *2* { *-5 *1-5 *2*1 1 *5** 1 -5 * ti * £ *-5*i-5*2* 11 * 
■5* 1-5*2* i' *-5* 1-5*2* f* * 1 * 15*2* 11 *5* 14* 1 

S2@ JjftTM 11*3*13*2*11*3*13*3*7*2*14*1*7* 

2*1-5*5*11*1*15*2*1'* *2* 1-5*2* 11 *5* 13*2* f* *5* 

1-5*6*11*2*14*1*11*5*14*1 

G>-50 DATA 11 * 6 * 15 * 5 * 11 * -5 * 15 *5 * 11^ 4 * 13 *2 * i* 

*6** 14*5* £ * 5* * 14*5* t *2* 15* i * { *4* 15*5* 11 *2* 

14 * 5 * 11 * 2 * 1 - 5 * 2 * 11 * 5 * 1 - 5*21 * ( *4 

6*40 DMTA 14 * 10 * i* * 4 * 1 -5 * 11 * f* * 4 * 1 -5* * 2 * i‘* * 2-5 * 1 

5*15*11*50* 15*4* i* *11 * 15*2* i" *2*14*4* i‘ *2*1 

-5« * 4 * f * 2 * 14 * 4 * f * 2 * 1 -5» * 4 * f * c* 

650 DATA 14*2* 11 *6* 14*2* i' *o* 1-5*4* { *2* 14* 
4*7*1*14*1 *7*6^*8*200 

660_OAJA 14*4*7*4*14^2*7^2*14* 16* 14 *2*14 
*3* r * 16**1-5**2*11*16**15**5* i *2*15*2* s* *2* 14* 
5* ( *4* 1-5*2* 11 *2* 1-5*5*3*250 
6* i 0 DAT A 11 *4*15* * 4 * » *4*15* *2*11 *4*15* * 5 * f 
5* 14*2*7 *2* 14*1* f *2* 1 -5** 1 * §■’ *2*14*1* i*’ *2*1 
*i*i‘*i*i *5* * 2 * 11*4 

688 DATA 13*2*7*4*13*2*11,6*14*2*11*4*1 
#2* *2*15**2*11 *2* 15«*5** 11 *2* 15**5** i J ’*2* 14* 

» { * .5 * 14 * -5 

b30 U AT A 7 *2*14*^* r *6_* 15*2*1.1 *4*i5*2*ll* 

2 * 15* * 2 * f * 4 * 14 * 2 * { * 2 * 15« * 2 * i ‘ * f 

p 
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700 REP1 :m:m VOU WIN $S&ZZtZ 

710 FOR J=15 TO 0 STEP -2:FOR H=100 TO 2 

00 STEP 12:SOUND 0,<J+10>$10,10,12 

720 SOUND 1jH<10#12:SETCOLQR 0,<RND<0>*1 

6>,8*. NEXT W-NEXT J 

730 SETCOLQR 8,6,4:SOUND 0,0,0,0:SOUND 1 

,0,0,0 

748 GRAPHICS 8:POKE 752,1:? “ Hell d 
one , you managed to escape 11 

750 ? "the death-defying maze.you are on 
e of":? "great intelligence to complete 
such" 

760 ? "an incredible task." 

770 DATA 85,85,85,85,85,85,85,85,85,85 
(80 DATA 65,85,85,85,85,85,85,85,85,85 
790 DATA 64,4,4,68:,4,0,0,0,0,88 
800 UHTh 0,64,0,16,0,0,0,8,0,1 
810 DATA 64,4,68,4,68,85,85,85,84,4 
820 DATA 84,69,85,17,85,85,85,85,85,81 
£80 DATA 65,4,4,68,68,64,0,0,0,6-8 
840 DATA 4,64,1,17,0,64,64,64,0,17 
850 DATA 65,5,20,64,68,69,85,85,85,85 
860 DhTA 68,35,81,1f,20,4,4,34,85,17 
6 f 0 DATA 65,0,0,85,64,64,1,1,1,64 
830 DATA 68,64,If,1,5,85,68,4,65,If 
890 DATA 65,68,68,64,85,85,16,16,16,68 
800 DhTh 68,85,17,85,64,0,85,68,5,17 
910 DATA 69,69,84,68,64,16,21,85,85,68 
820 DATA 68,64,lb,8,85,84,0,68,65,1 f 
9d0 DAT A 69,0,68,4,69,1 ,80,0,6,4 
940 DATA 68,69,85,84,0,5,34,64,81,17 
950 DATA 69,84,69,20,65,16,17,85,85,84 
960 DATH 68,64,0,5,85,64,4,84,31,17 
970 DATA 64,4,69,28,81,21,16,0,4,0 
980 UATH 68,85,85,64,0,85,68,4,1,17 
998 DATA 85,68,5,16,65,0,21,85,68,85 
1060 UATA 68,0,0,85,84,64,69,69,81,17 
1010 DATA 85,68,84,17,81,85,81,0,68,64 
1020 DATA 5,85,34,64,0,84,64,64,65,17 
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1030 DOTH 69,68,0,80,17,l,i,17,68,69 
1840 UftTA 85,0,4,68,85,84,84,84,69,17 
1050 DATA 64,4,2i,81,17,17,17,16,68,64 
1060 DOTH 1,21,68,68,64,0,4,4,68,17 
1070 DflTfl 69,84,16,1,16,16,17,20,68,69 
1080 DflTfl 81,16,4,68,69,85,69,68,63,17 
i890 DflTfl 68,0,17,85,21,85,81,16,68,64 
1100 DflTfl 17,17,84,68,68,0,64,63,68,17 
1110 DATA 68,85,81,1,0,5,81,17,68,69 
1120 DflTfl i7,16,4,69,68,84,84,68,69,17 
li30 DflTfl 68,80,1,21,85,68,0,16,68,65 
1140 DATA 16,21,68,64,4,4,4,68,65,17 
1156 DATA 68,85,21,16,0,69,85,85,68,81 
1160 DflTfl 21,80,4,85,85,69,68,68,85,17 
1170 DATA 68,1,16,17,84,64,8,0,4,17 
1180 DATA 21,81,84,0,0,0,68,68,1,17 
1190 DATA 69,1,17,16,68,69,84,85,85,17 
1200 DATA 21,80,5,85,35,84,68,63,21,17 
1210 DATA 65,5,17,20,64,68,0,64,16,17 
1220 DATA 21,85,64,0,0,68,68,69,80,17 
1230 DATA 65,68,0,4,85,68,85,69,17,81 
1240 DATA 16,0,85,35,34,68,68,64,17,17 
1 £.‘50 DATA 64,69,85,68,0,64:;,4,1,1 , 1 
iii68 UATfl 21,84,0,0,0,68,63,85,17,17 
1270 DflTfl 84,64,0,69,84,69,68,85,17,17 
1288 DATA 16,21,85,85,85,68,68,64,17,17 
1290 DOTH 84,85,84,64,0,64,68,1,17,81 
1300 DATA 17,0,64,0,0,68,68,69,31,17 
1310 DflTfl 84,0,4,85,69,68,69,81,16,1 
1320 DATA 17,84,69,85,84,63,64,64,81,17 
1330 DflTfl 64,21,68,0,4,4,68,1,1<,65 
1^40 DATA 1 r’,0,63,0,64,68,35,34,65,17 
1350 DflTfl 68,85,69,68,84,84,68,85,17,0 
1360 DATA 17,21,68,68,4,8,4,4,69,17 
1370 DATA 68,85,64,68,64,64,68,1,17,21 
1330 UftTfi 31,4,4,69,35,85,68,68,68,17 
1390 DATA 68,5,64,68,69,69,69,81,1^,16 
1400 DflTfl 1,64,68,65,0,6,68,63,68,31 
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1416 DATA 69,85,68,68,68,4,4,1,17,16 
1420 DATA 21,85,85,85,1/ ,84,68,68,4,65 
1430 DATA 64,0,4,68,68,84,84,85,17,21 
1440 DATA 0,0,1,35,17,4,68,63,84,85 
1450 DATA 63,21,84,68,63,64,64,1,17,1 
1460 DATA 85,85,80,1,17,68,68,64,8,1 
1470 DATA 68,16,0,68,64,63,85,81, 1 /',81 
1480 DATA 0,0,21,31,31,4,68,63,85,35 
1430 DATA 64,80,85,68,68,68,0,17,16,17 
1500 DATA 21,85,16,1/' , l/ - ,£0,68,68,4,5 
1510 DATA 68,65,64,4,66,68,85, i f ,21, 1 { 
lu20 DATA 4,5,17,17,17,4,68,68,68,63 
1530 DATA 68,65,5,84,68,6t;,l,l/',l,lf 
1540 DATA 64,65,17,17,17,68,63,68,68,63 
1550 DATA 68,65,20,0,68,63,81,17,81,17 
1560 DATA 85,85,17,17,16,4,68,68,63,63 
1570 DATA 68,64,16,85,68,66:, 1,16,17,16 
1580 DATA 0,0,1 { ,17,1 < ,63,68,64,64,65 
1590 DATA 68,85,81,64,68,68,85,21,17,i7 
1600 DATA 63,85,31,1/' ,17,63,68,85,85,31 
1610 DATA 64,0,1,5,68,68,1,16-,1/,1 { 

1620 DATA 0,0,1,1,17,4,68,0,0,21 
1630 DATA 81,84,85,20,4,63,81,17,81,21 
1640 DATA 21,85,81,85,1/' ,20,63,35,35,1 
1650 DATA 65,84,81,16,84,68,1,16,17,0 
1660 DATA 16,0,17,84,1,16,64,0,1,31 
1670 DATA 63,4,1,16,64,68,85,17,81,85 
1630 DATA 81,85,17,84,35,1/' ,81,85,30,1 
1690 DATA 68,4,63,17,69,68,1,1,81,1 
1700 DATA 16,1,17,84,64,17,17,16,21,85 
1 f 10 DATA 68,68,68,16,4,5,81,85,1,1/ 
1720 DATA 1,81,17,84,63,31,17,17,0,1 
1730 DATA 68,68,68,81,84,84,80,64,21,17 
1740 DATA 21,31,17,84,63,17,17,17,85,81 
1750 DATA 68,6£:,64,65,0,64,20,69,80,17 
l(68 Data 0 ,i, 1 ( , 80 , 63 , 1 { , 1/,1 , 0 , 1 
1770 DATA 64,64,68,69,21,63,0,64,1,81 
1730 DATA 85,81,17,81,63,17,17,85,21,35 
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If30 DATA y5#85jt8#byj]bf5it>ii85jd5jb5 
1300 DflTfi 64, 1,1 f r^f5f If >ibj0f0*l 
1810 DOTH 64,0,4,68,81,84,17,0,0,69 
1820 DATA 63,35,17,63,20,17,21,85,85,65 
18ii0 DOTH 65,2l ,64,68,65,W,85,2l ,34,64 
i340 DflTfi 4,0,If,4,16,If,0,0,0,65 
1850 DflTfi 64,16,0,68,64,17,64,0,4,69 
I860 DATA 84,85,31,20,31,17,85,35,84,65 
1870 DATA 63,81,85,68,85,80,63,85,68,84 
1388 DATA 4,0,1f,16,65,16,0,5,84,35 
1830 DATA 64,1,0,4,0,64,68,0,4,4 
1300 DATA 85,35,17,17,63,21,63,64,0,1 
1310 DATA 85,85,21,85,84,63,68,85,85,68 
1320 DATA 0,0,17,17,85,0,68,85,85,35 
1330 DATA 64,0,21,1,0,64,68,64,64,63 
1340 DATA 84,85,81,16,0,4,4,64,1,1 
1350 DATA 85,20,80,17,21,84,68,4,4,68 
1360 DATA 4,0,17,21,35,85,84,85,81,17 
1370 DATA 64,20,1,81,16,0,63,85,84,68 
L360 DATA 63,85,17,0,0,0,16,0,31,1f 
1330 DATA 63,85,85,1,17,84,64,0,4,68 
2000 DATA 64,0,17,85,81,81,17,84,81,17 
2010 DATA 68,0,0,21,16,5,85,85,68,68 
2020 DATA 35,85,81,8,1b,17,16,4,17,If 
20»J0 DATA 68,85,^5,81,21,68,0,0,68,68 
2040 DATA 0,0,1f,21,21,1f,1f,b3,1f,17 
2050 DATA 68,0,0,1,21,68,85,84,68,68 
20b0 DATA 85,b3,3l,lf,l,lf,lb,b5,17,lf 
2070 DATA 68,1,85,85,0,68,0,4,68,68 
2080 DATA 64,64,17,17,81,17,21,81,17,17 
2030 DATA 63,81,0,1,85,63,85,68,68,68 
2100 DATA 84,85,17,17,81,17,16,17,1,17 
2110 DATA 64,1,21,80,0,68,0,68,68,68 
2120 DATA 4,64,17,16,17,17,17,17,85,17 
2130 DATA 84,85,16,21,84,0,68,68,68,63 
2140 DATA b3,63,31,If,31,17,17,lb,0,17 
2150 DATA 84,64,17,0,21,85,68,68,68,64 
2l60 DATA 63,b4,1f,16,17,17,17,21,35,81 
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2170 DfiTfi 64,69*81 ,85,16.0,4,68,68,85 
2188 DOTH 84,85,17,21,17,17,1,0,16,1 
2190 DfiTfi 85,68,1,1,17,85,84,68,0,0 
2200 DfiTfi 0,0,17,16,1,17,85,81,17,85 
2210 DwTfl 64,4,85,1f,16,0,4,69,85,85 
2 22 6 DfiTfi 85,85,81,21,81,1 ( ,16,1 { ,16,1 
2230 DHTfi 69,84,64,ir,21,85,68,64,0,0 
2240 DOTH 0,0,1,0,17,17,17,17,21,81 
2258 DOTH 64,0,69,80,16,0,4,85,&>,85 
2260 DfiTfi 85,85,85,35,17,17,17,17,16,1 
2270 DOTH 85,85,68,21,81,85,84,0,0,0 
2280 DfiTfi 0,0,0,1,21,17,17,1,17,85 
2290 DfiTfi 64,64,68,4,16,0,5,85,85,85 
2-i00 DHTfi 35,85,85,81,0,17,17,85,16,1 
2310 DfiTfi 68,68,68,84,85,85,64,0,0,0 
2320 DfiTfi 0,0,0,17,85,81,17,1,21,81 
2330 DfiTfi 68,4,4,68,64,0,85,85,85,85 
2-i4y DfiTfi 35,35,35,16,8,1,0,if ,0,1 
2350 DfiTfi 85,85,68,68,69,84,64,64,0,0 
2360 DfiTfi 0,0,1,21,85,85,85,85,35,81 
2370 DfiTfi 64,0,68,68.68,0.68,69,85,85 
2330 DHTfi 35,85,31,0,0,8,0,8,8,17 
2390 DfiTfi 69,20,68,68.69.69,68,68.0,0 
2480 DfiTfi 8,0,17,85,35,85,85,85,85,17 
2410 DfiTfi 69,16.68,68,64,68,64,68,85,85 
2420 DfiTfi 35,85,17,1,0,8,0,0,1,17 
2430 DfiTfi 69,17,68,68,84,68,81,68,64,0 
2448 DfiTfi 64,1,17,81,21,85,85,85,81,17 
2450 DfiTfi 69,16,68,64,4,64,0,4,69,84 
2468 DfiTfi 69,31,1,1,16,8,0,8,1,17 
2470 DfiTfi 69,20,68,68,68,85,85,84,68,0 
2480 DfiTfi 63,31,35,21,17,85,85,35,35,17 
2490 DfiTfi 69,16,68,68.68,0,16,64,68,85 
2508 DfiTfi 68,17,1,1,17,16,1,0,1,17 
2510 DfiTfi 69,If,63,68,69,85,16,69,68,64 
2520 DfiTfi 5,17,17,81,17,1,31,21,81,17 
2530 DfiTfi 63,16,68,68,68,0,16,68,4,69 
2540 DfiTfi 84,16,16,1,17,81,1,16,1,17 
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2550 DOTH B9 , 20 , 68 , fc-O/boj 85 , 84 r to , §4 , 68 
256 u LJfiTH 0,85,85,95, 16, 1 1 .nil,17,85, 1 / 
2570 DOTH 69,16,68,68,68,68,0,4,64,G>8 
2590 DHTfi #21# 1^ 

2590 DOTH 69,17,68,68,68,64,69,84,69,68 
2608 DHTfi 64,1,17,1,1*1*17,35,31,17 
2610 DHTfi 69,16,68,€8,E*8,85,65,64,68,4 
2620 DHTfi 95,35,3,21,31,35,1 ( ,0,1/’,1 f 
2000 DHTfi 69,21,69,68,63,0,64,68,68,68 
2640 DfiTfi 0,0,21,16,if,0,1,21,1/,1/ 

2650 DfiTfi 69,0,0,4,69,84,84,68,69,69 
2660 DfiTH 95,85,30,1 f ,1 ( ,21,35,1 f ,1/,17 
2670 DfiTfi 85,21,69,84,64,4,4,4,64,64 
2680 DfiTfi 0,1,1,81,17,16,1,17,1,17 
2690 DfiTfi 69,16,69,84,85,69,69,85,85,85 
2700 DfiTfi 35,81,21,1,17,21,81,17,85,17 
2710 DfiTfi 68,17,68,0,0,64,0,0,0,0 
2720 UHTfi 0,17,16,21,17,0,17,0,1,17 
2730 DfiTfi 68,81,69,85,84,85,85,85,85,8i 
2 f*49 UfiTW 85,1 ( , 17,8i , 1 f ,85,1 /* ,85,31,1 / 
2750 DfiTfi 68,64,68,0,0,64,0,0,0,1 
2 i 60 UfiTfi 1,1 , 1 f , 1,1 f ,0,16,8,1,1/ 

2770 DfiTfi 68,68,68,85,85,69,85,85,85,85 
2730 DfiTfi 17,17,17,21,17,21,85,85,35,17 
2790 DfiTfi 63,68,68,1,1,4,0,0,63,5 
2808 DfiTfi 17,17,17,1,17,16,20,4,5,17 
2810 DfiTfi 68,68,69,31,1 ( ,26,85,35,68,€*9 
2820 DfiTfi 17,17,17,81,17,17,0,64,65,17 
2880 DfiTfi 64,68,64,1 ( ,1 f ,20,85,80,4,69 
2340 DfiTfi 17,1,0,1,17,21,69,85,81,17 
2856 DfiTfi 69,68,85,17,17,20,6,1,68,69 
2360 DfiTfi 17,21,85,21,17,0,5,16,1,17 
2870 DfiTfi 64,4,1,1 /", 1 1 ,21,35,80,68,69 
2380 UfiTfi 16,16,8,16,1/,35,35,If,35,17 
2896 DfiTfi 85,84,85,17,17,0,0,26,64,65 
2900 DfiTfi 21,17,85,81,81,1,0,16,1,17 
2910 DfiTfi 64,0,1,17,17,85,85,20,85,85 
2920 DfiTfi 1,16,16,1,1,17,21,21,81,17 


163 





2938 DOTH 63*84,85,17., 17*1*1,0*0,1 
2340 DOTH 81*21,17*85*21*17*1,0,1,17 
2950 DfiTfi 64*20*81*17*17*17*17*85*85* 
2360 DfiTfi 16*16*17*0,16*17*81,85*85*1 
2970 DfiTfi 85*16*65*16*16*16*16*0*0*1 
2336 DfiTfi l*lf *31*21*81*31*1*8*1*1^ 

2990 DfiTfi 64*17*69*21*85*85*85*85*85*85 
3000 DfiTfi 35*16*1*16*1*1*21*21*81*17 
3010 DfiTfi 63*81*1*16*0*0*0*0*0*0 
3020 DfiTfi 0,21*85*21*21*21*16*16*1*17 
J»0 DfiTfi 64*1.' *81 * 1 f *85*85*65*35*35*85 
3040 DfiTfi 85*80,0*1*16,16*17*81*85*17 
3050 DfiTfi 85*17*1*17*0*0*0*4*4*0 
3060 DfiTfi 0*65*85*81*17*81*81,1*1,35 
3070 DfiTfi 64*17*21*17*85*85*84*68*68*85 
3080 DfiTfi 84*69*0*1,17*17*1*21*16*1 
3090 DfiTfi 63*81*1*16*0*0*4*68*68*0 
3100 DfiTfi 4*68*21*85*17*0*17*0*16*1 
3110 DfiTfi 64*17*81*21*85*85*68*68*63*85 
•j 1 DfiTfi 33*68*80*3* 1 7 *35*85*85*34*1 
3130 DfiTfi 85*16*1*0*0*0*64*64*64*6 
3148 DfiTfi 4,4*1,35,16*0,0*0*4*1 
3150 DfiTfi 85*85*85*85*85*85*85*85*85*85 
3160 DfiTfi 85,85,85*35*85,85,85*85*35,35 
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ASTRO BLAST 

Our next game was written by Paul Dunning. The game is for 
two players, each controlling his or her own ship at the same 
time. You control your ship by using the joystick in port one for 
player one and in port two for player two. Pushing the joystick 
up will give you thrust, and move you one square in the 
direction you are facing. Push the joystick left or right to rotate 
the ship. 

When you first run the program, the computer will ask the 
time to play About 30 is average. The object of the game is to 
hit your opponent as many times as possible in the allocated 
time. Note that you have a limited number of shots, with the 
number of remaining energy shells shown at the bottom of 
the screen. Now, when you’re ready, blast away! 
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1 MLi'i 

2 REfi t Astro blast % 

3 Ktil % - % 

4 REP1 % Mf- i tten by Paul Dunn i ny % 

■-■ Kti 1 -y- -v- -■!•■ -•;■■ -£ -f- - ; r- -y. -y~y- --V- -if-—s 1 - --i-- -■£■ -$• -1!'- -v-v-^ -£ 

e REfi 

1 0 U I PI F 1 $< 2@ > * F2t< 20 ) * XX 3 > j. ¥< 8 >: F1 $< i >= 
CHR$< 172 >: Fit-*:!20 >=CHR*< 172 >sFl$< 2 >=F1$: F 

2 $=",,*************“ 

20 R AP1=PEEKX 106 >-16: POKE f'5S*Rfif1: IF PEEK! 
<203)0208 THEN SGSUB 890:POKE 203*200 
30 RESTORE 360: FOR *3=1 TO 3: READ XX*W:X 
CQ)=XX:VCQ)=VV:NEXT Q:Cl=1:C=1 
48 GRAPHICS 2 

50 ? #6 i " astro blast " 

60 ? #6;“ tmttttmtt 1 ' 

70 ? : ? " ENTER TIP1E TO PLAY INPUT TI 
80 REfi 

30 GRAPHICS 17:POKE 756*RAf1:Fl=14: F2=14: 
X=5:V=14:Q=15:M=5:FF1=1:FF2-1 
100 S=STICK< 0): IF 3=7 THEN C=C+1:IF 08 
THEN C=1 

110 IF 8=11 THEN C=C-l:IF C<1 THEN C=8 

120 IF S=14 THEN COLOR 32: PLOT X*¥:X=X+X 

<C):¥=¥+¥<C):SOUND 0*200*8*3 

138 IF SOI4 THEN SOUND 0*0*0*6 

140 IF X<2 OR X>13 THEN X=X+-X<C):X=*iX=2 

'}% 18+( X= 18 >&2 

156 IF Y<2 OR ¥>18 THEN ¥=¥+-¥<C):¥=<V=2 

)$18+< V=l8 >&2 

160 COLOR C:PLOT X*V 

170 IF STRIG*: 0 .:*=0 AND FF1=1 THEN GOSUB 3 
40 

180 IF STRIG*: 1 >=0 AND FF2=1 THEN GOSUB 5 
20 

130 S=STICKX 1): IF S=7 THEN Ul=Cl+i:iF Cl 
>8 THEN Cl=l 

200 IF S=11 THEN C1=C1-1:IF Cl<2 THEN Cl 


210 IP S=14 THEN COLOR 32:PLOT Q,H:Q=Q+X 
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c r.i ): h=H+V( Cl >: SOUND 1 # 100*£ ; *8 

220 IF S<>14 THEN SOUND i#0*0*0 

230 IF GK2 OR _Q>18 THEN Q=Q+-X<Cl ):Q=< Q= 

2 }% 1 o+C Q= 13 .-‘-¥-2 

240 IF H<2 0R.W>18 THEN H=W+—VCCl >:M=cW= 

IS )#2+C H=2 >#18 

2Fi0 LULUK Cl i PLOT U *N 

2R0 IF FKl THEN POSITION 0*21:? #6* “out 
of fuel":FF1=0:GOTO 280 

270 POSITION 0*21:? #6i“FUEL1“iF1$<1 * F1> 

- :2 *£ 

230 IF F2-i l THEN PQSIIION 0,22:? #6;“out 
of fuel":FF2=0:GOTO 200 
290 POSITION 0 * 22:? #6 i “FUEL2“;F2$C1 * F2 > 

_ It it 

7.m POSITION 5*0:? #6*Sl:POSITION 15*0:? 
‘#S*S2:POSITION 8*0: ? #6; "TIf'lE": PUSITIUN 
9,is? #6*INTCTI>*" " 

310 IF PEEK-; 53279 >=6 THEN GOTO 90 
320 TI=TI-0.1:IF TI<0.1 THEN 800 
330 GOTO 100 
340 X1=X+X<C>:V1=V+V< C > 

350 IF C=1 OR C=5 THEN FC=18 

368 IF C=3 OR C=7 THEN FC=12 

370 IF 0=2 OF: 0=6 THEN FC=11 

330 IF C=4 OR 0=8 THEN FC=13 

390 FOR F=1 TU 5: LOCATE XI* VI* XX: COLOR: F 

C:PLOT XI,VI 

400 IF XXO-32 HND XX<10 THEN GGSUB 700: S 
1=S1+1:HH=1:GUT0 450 

410 SOUND 0,255-FX50 *3*15:SOUND 1,150-F# 
30*8*155 


420 IF XI>18 OR Xl<1 THEN 450 

430 IF VI>18 OR VI<1 THEN 450 

440 X1=X1+X<C>:V1=V1+V<C>:NEXT F 
450 X1=X+X<C >:V1=V+ VC C > 

460 FOR E=1 TO 5:COLOR 32.‘PLOT XI*VI 
470 IF XI>18 OR XI<1 THEN 500 

480 IF VI>18 OR VKl THEN 500 

490 X1=X1+XCC >: V1=V1+VC C >:NEXT E 
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000 SOUNU 0*0,0,0:SOUND l,0,0,0:Fl=Fi-i: 

IF HH=1 THEN HH=0:GGTO 30 
510 RtTURH 

520 X2=Q+XX C1 >s V2=H+V< C1 > 

53W IF Cl=l OR 01=5 THEN FC:=10 

540 IF Cl=3 OR 01=7 THEN FC=12 

550 IF 01=2 OF: 01=6 THEN FC=11 

560 IF 01=4 OR 01=53 THEN FC=13 

570 FOR F=1 TO 5:L0CHTE X2,¥2 ,XXs OOLUF: F 

OIRUjT X2,V2 

5:30 SOUND 0,255-F£50,8,15:SOUND i,150-F£ 
30,8,15 

590 IF XX<>32 FfND XX<10 THEN 60SUB 750:S 

2=S2+1:HH=1:GOT0 630 

600 IF X2>18 OR X2<1 THEN 630 

610 IF Y2>18 OR V2<1 THEN 630 

620 X2=X2+X< 01 >: V2=V2+V< 01 >: ND<T F 

630 X2=Q+X<01 >:Y2=W+V< 01> 

640 FOR E=1 TO 5:COLOR 32:PLOT X2,¥2 

650 ip X2>18 OF: XE*-. 1 THEN £580 

660 it- ¥2>19 OR ¥2< 1 THEN 680 

670 X2-X2+XOS1 >.¥2=¥2+¥<Cl >5 NEXT E 

680 SOUND 0,0,0,0:SOUND 1,0,0,0:F2=F2-l: 

IF HH=1 THEN HH=0:6OTO 30 

690 RETURN 

700 FOR G=15 TO 0 STEP -3 
710 FOR H=0 T0 2 
720 SOUND H,RND<1>£50+100,8,6 
730 NEXT H 

740 NEXT 6:FOR 6=0 TO 2:SOUND G,0,0,0:NE 
XT G:RETURN 

758 FOR 6=15 TO 0 STEP -3 
76© FOR H=0 TO 2 
770 SOUND H,RND<1>£50+100,3,6 
780 NEXT H 

79© NEXT 6:FOR 6=0 TO 2:SOUND 8,0,0,0:NE 
XT 6:RETURN 

800 POSITION 5,10:? #6;"GONE OUER" 

810 S1=0:S2=0:FOR 0=1 TO 5 
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820 SOUND 0,100+C,10,15:SOUND 1,120+0,10 

,15:SOUND 2,30+0,10,15 

8-30 0=0-1:IP C=-30 THEN 850 

840 GOTO 820 

850 0=0:NEXT Q 

860 FOR Q =0 TO 2:SOUND Q,0,0,0:NEXT Q 
870 IF PEEK-: 53279 >=B THEN 40 
880 POKE 53273,0:SOTU 870 
830 FOR 0=0 TO 1024:A=PEEK<57344+0>:POKE 
Ri¥!£256+Q , H: NEK T 0: 0=8 
900 READ A:IF A=-i THEN RETURN 
310 POKE rtAF1&256+U,A:0=0+1:GOTO 980_ 

320 DHTA 24,24,38,36,66,90,165,135,8,13, 
50,134,52,20,0,3,132,1 i'O , ^ O , 35 , o5 , «■ 6 ,1 f '6 
,192,8,8,20,52,194,50,18,3 
9-i0 DAi A 195,1 f'3,90,6b,86,8b,24,24,16, lb 
,40,44,67,76,176,192,3,13,50,196., 196,50, 
1 3,3,132,i 16 , 36,6 f,44,40,16,16 
940 DATA 112,120,248,254,255,127,60,56,2 
4,24,24,24,24,24,24,24,1,2,4,8,16,32,64, 
1 28 ,0,0,0, 255,255 , 0 , 0,0 
950 DATA 128,64,32,16,3,4,2,1, 1 
960 DATA 0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0 
,-1,-1 
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FROG JUMP 

In FROG JUMP, another game from Paul Dunning, you 
control a frog using the joystick. The object of the game is to 
get five frogs safely home, past the road and river. You must 
dodge the cars on the road. You must jump onto passing 
boats on the river, but do not jump on the yellow boats. 

Sometimes you may see your girlfriend on one of the boats. 
You can then get 200 bonus points by picking her up and 
taking her home. Chivalry brings its own reward. 

If you manage to get all your frogs home, you’ll receive a 
bonus based on the amount of time you have left. Then you’ll 
advance to an even harder round. 
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20 REP! •& FROG - JUP1F' $• 

30 REP1 ?• - X 

40 REP1 % WRITTEN BV PAUL DUNNING % 

50 REP1 

60 DI Pi P$< 20 >,L1 $< 22 ;■ , L2$< 20 > , C 1 $<20 > * C2 
Pi 20 >,T 1 $< 20 >,T2$< 20 >,X$< 20 >,V$< 20 >,F$< 4 
): RwPl=c. PEEKt. 106 ;*— 1S >$256 

70 GRAPHICS 17 

80 IF PEEKX RflPl+9>=0 THEN GOSUB 1140 
90 GRAPHICS 17sSETCOLOR 0,2*3:SETCOLOR 1 
*12,5:SETCOLOR 2,13,8:SETCOLOR 3,2,6:SET 
COLOR 4,8,1 


1 GO X3= 19: E= 1: 11 =50: U= 1: Pl=3: X= 10: V= 19: C= 
7: POKE 756, RAIV256 

110 P$< 1 >=CHR$< 132 >:P$< 20 >=CHR$< 132 >: P$< 

2 >=P$: F$< 1 >=l:HR$( lb7 >: F$C 4 >=CHR$'i 167 >: F$ 
(2 >=F$ 

120 Ll$=“ i ! ! ! ! mm* " 

130 L2$= n i ! S ! ! ! M ! ! !i 

140 FOR 0=1 TO 20:READ U:Ci$<Q,Q>=CHR$<U 
>:NEXT Q 

i50 DATA 32,i63,163,32,32,163,163,32,32, 
163 ,163,42,32,16*3 ,163,32,32,163,163,32 
160 C2$=" # # # # # “ 

178_F0R Q=1 TO 20: READ U: T1 P, Q,6 >=CHR$T U 
) - NEXT Q 

180 DATA_32,166,166,166,32,32,32,134,134 
,134,32,32,32,134,134,134,32,32,32,32 
190 FOR Q=i TO 20:READ U:T2$< Q,Q >=CHR$< U 

>: NEXI Q 


200_UAj A_ 32,32,32,32,134^134,i34,32,32,3 
2,1 fc»b , 166 , 166 , 32 , 32 ,32 , 134 , 134 , 134 , 32 
210 POSITION 0,10:? *6iP$ 

220 POSITION 0,20:? #6;P$ 

230 POSITION 0,0 

240 FOR Q=1 TO 40:READ Us? #6 i CHR$<U>;:N 

EX i Q 


250 UA!A 132,132,32,132,132 
2,132,132,32,132,132,32,132 


,32,132, 
, 132,32, 


1 
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260 DATA 133 , 133 , 
2,133,133,32,133, 


'iC., 1 , 1 -ivi , , 1 u-j , 1 

186 , 6w , 1 8 8, 1 8 8, 84, 1 88, 1 


279 COLOR C«PLOT X,¥ 

280 POSITION 0,6 J? #6;Llt:GOSUB 6:80: PUS I 
TION 0,8:? #6iTl$:GOSUB 690:POSITION 0,4 
:? #6iT2$:POSITION 0,2:? #6;L2$ 

290 GOSUB 690:POSITION 0,12:? #6iCl$:GGS 
UB 690:POSITION 0,15:? #6iC2*:603U6 690: 
PUS ITI ON 0,1s: #6 i L IT: GOSUB €>90 


3W0 COLOR OC:PLOT X,V 
310 LOCATE X,V,CR 

rr r*o. .“?•“« i - i l i n .-nv 


320 

IF CRO 

32 AND 

CR>10 

AND 

V 

>10 THEN GO 

SUB 

850 






630 

COLOR C 

s PLOT 

X , v 




340 

:<$=L2$( 

1,19): 

V$=L2$< 

20, 

20 

): Vt< LEh-K V$ 

>+l; 


=Y$ 





350 


1,19): 

V$=LU( 

20, 

20 

): Yt< LEN< V$ 

hi : 

»=Xf-: Llt- 

=vt- 





360 

x*=cit< 

1,19): 

V$=Clt< 

20, 

20 

): Yt<LENC Y$ 

hi : 

■=X$: Clt 

=¥$ 





370 

Tlt=Tl$ 

< 2,20 ) 

: T1 2t 

1,20 

>=' 

Tl$< 1,1) 


380 T2t=T2$< 2,2tf ): T 2$< 20,20 )=T 2$< 1,1) 

390 C2$=C2$< 2,20): C2$< 20,20 >=C2$< 1,1) 
400 S=STICK<0>: COLOR 2 
410 POSITION 5,23:? #6i"»core-";3C 
420 POSITION 5,22:? #6i"time -"iT;“ " 

430 POSITION 0,23:? #6;F$< 1 ,f1 “ 

440 T1=T1-0.05:T=INT<T1> 

450 IF S=7 THEN COLOR OC:PLOT X,Y:X=X+1: 
LOCATE X , V ,OC:C=8:GOSUB 620 
468 IF S=ll THEN COLOR OC:PLOT X,V:X=X-1 
:LOCATE X,V,OC:C=9:GOSUB 820 


470 IF S=14 THEN COLOR OC:PLOT X,Y:Y=Y-.J 

:LOCATE X,V,OC:C=7:GOSUB 820 

480 IF S=13 THEN COLOR GC:PLQT X,V:V=Y+J 

:LOCATE X,V,OC:C=10:GOSUB 820 

490 IF 0CO32 AND OO10 AND V>10 THEN GO 

SUB 85S 

500 IF 0C=32 AND Y<10 AND V>0 THEN GOSUB 
850 
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51 Q IF veil 1 HEN J=2 
520 IF V>10 THEN J=1 
530 IF 0C=134 THEN X=X-1 
540 IF 0C=7 THEN GOSUB 1320 
550 IF 0C=33 THEN X=X+1 
560 IF 06=166 THEN X=X-1:TT=TT+1:IF TT=5 
THEN TT=0!X=X+1: 60SUB 850 
570 IF V=0 AND 06=32 THEN 60SUB 730:GOTO 
610 

580 IF V=0 THEN GOSUB 850 

590 IF X>13 THEN X=X-1:GOSUB 850 

600 IF X<0 THEN X=X+l:GOSUB 850 

610 60L0R 6: PLOT X,V 

620 IF RND<1>>0.95 AND HF=0 THEN HH=0 

630 IF H=0 AND HH=G THEN GOSUB 1330:IF H 

=0 THEN 678 

640 IF HH=1 THEN 670 

650 X3=X3-1: IF X3C2 THEN H=0:HF=1.*HH=1 

660 COLOR : PLOT X3*8 

670 REP1 

680 GOTO 2 70 

630 LOCATE X#V,AC:IF ACC7 OR AC>10 THEN 

OC=AC 

700 IF H=1 THEN COLOR 7:PLOT X3#8 

710 COLOR C:PLOT X^V:RETURN 

720 FOR H=1 TO 10:SOUND 0#W#10*15:NEXT W 

730 X1=X:V1=V:X=i0:V=l9 

740 FOR W=1 TO 10:SOUND 0#W#10#15:NEXT W 

750_FOR N=10 Tu 1 STEP -l:SOUND 0^N#10#1 

5:NEXT H 

760 SOUND 0#0,0,0:COLOR C:PLOT X1#V1 
770 F=F+1:SC=SC+200:IF SC>2000 AND E=1 T 
HEN E=0:Pl=fl+l 
7fc!0 HF=0 

790 IF BBC>0 THEN SC=SC+BB:BB=0 

800 IF F=6 THEN F=0:GOSUB 960:GOTO £10 

810 RETURN 

320 FOR W=55 TO 50 STEP -1 
830 SOUND 15:NEXT W 
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840 SOUNU 0,0,0*0:RETURN 
850 FOR W=il TO 15 

860 COLOR W ■ PLOT X , V : SOUND 0 , H48,10,15 

870 FOR F-0 TO 50:NEXT P:NEXT W 

880 COLOR 32:PLOT X,V:Pl=fl-l 

890 COLOR OC:PLOT X,V 

900 SOUND 0,0,0,0:00=32 

910 IF H=0 THEN 930 

920 X=10:¥=19:HF=0:RETURN 

930 POSITION 5,10:? #Gi"93iifte over-" 

940 IF PEEK<53279>=6 THEN RUN 
950 GOTO 940 
960 GRAPHICS 17 

979 IF T<10 THEN POSITION 5,10:? #6i"N0 
BONUS 11 : GOT 0 1030 

980 6= INK RN0< 1 >$400 7+200 

990 K=INT< T--10+LL >: BO=K£G:SC=SC+BO 
1000 POSITION 7,8:? #6i"BONUS" 

1010 POSITION 2,7:? #6iKi" t “iGi " = “;B 

Q 

1020 FOR W=1 TO 7 

1030 FOR F-255 TO 0 STEP -13:POKE 708,P: 
SOUND 0,P,10,10:SOUND 1,255-F,12,10:NEXT 

i - 1 

1040 NEXI N:SOUND 1,0,0,0 
1050 GRAPHICS 17:SETCOLOR 0,2,3:SETCOLOR 
1,12,5:Shi COLOR 2,13,8:SETCOLOR 3,2,S:S 
ETCOLOR 4,8,1 :LL=lL+ 1 
1060 IF LL>i THEN 1118 
1070 Ll$= 11 ! ! ! ! ! “ 

1088 C2$=" #* ## *# #* **" 

1090 IF SC>2000 AND E=1 THEN E=0:N=fHl 
1100 POKE 756 , RAPV256: T1 =50: RETURN 
1110 * | | I i i j | 11 : L2$< 7,7) 

-LHPM i8S ) - 8 #8 >==CHR$<. 187 > 

1120 GOTO 1090 

1130 GOTO S70 

1140 ? #6 i " PLEASE WAIT 

1150 ? #6j" REDEFING THE" 


174 







1160 ? #6i" CHARACTER SET” 

1170 f:=@: FOR Q=0 TO 2048 
1180 A=PEEK<57344+Q> 

1190 POKE RflH+Q,fl 

1200 NEXT Q 

1210 POKE 756,RAFv256 

L220 READ C:IF C=-l THEN RETURN 

1230 BA=RAfTK CX8 ) 

1240 FOR Q=0 TO 7:READ U:POKE BA+Q,U:NEX 


12^0 GOi0 1220 

12S0_DATA 1,255,135,255,225,255,135,255, 

2'55,3,0,119,34,254,255,254,34 ,119 

1270 DATA 4,255,255,255,255,255,255,255, 

255,5,255,255,255,255,255,255,255,0,6,13 

0,214,124,124,124,124,214 

1280 DATA 146,7,66,66,90,60,60,60,90,129 

, 3 , 129 , 1, 56,124, 124,56 , < i , 128,3,1,226,2 

8 , 62 , 62 , 28 , *i 26 , i 

1290 Lift] A 10,123,90,6£i,60,60,;90,66,66,11 
, i* 42,20,42,20,42, { 3,0,12,0,42,20,42,20 
,42,0,0 

1300 DATA i3,0,8,20,42,20,8,0,0,14,0,0,2 
0,8,20,0,0,0,15,0,60,66,90,90,66,60,6 
1310 DATA 26,0,28,126,255,99,1,0,0,27,0, 
6 ,15,6,14ii,254,24b , 112 , i 
1328 FOR_W=150 TO 50 STEP -1:SOUND 0,W,1 
0,15:NEXT H:SOUND 0,0,8,0:BB=200:HF=1:H= 
8: HH= 1: X3= 19: RETURN 

1330 LOCATE X3,8,XX: IF XX<>32 AND XX016 
6 THEN H=1 
1340 X3=19 
1350 RETURN 
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Chapter 14: 

USER-PROTECTING 
YOUR PROGRAMS 
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USER-PROTECTING 
YOUR PROGRAMS 

Disabling the BREAK key: 

This can be done using the following statement 
POKE 16,64: POKE 53774,64 

It must be done whenever the graphics mode is changed. 
Using the cold start flag: 

The command POKE 580,1 will cause the computer to do the 
power-up sequence when SYSTEM RESET is pressed. This 
means that if the user presses SYSTEM RESET, then the 
computer will clear all RAM, getting rid of the program. 

The Variable name table: 

This is where the computer stores the names of all the 
variables. Destroying the variable name table prevents the 
program from being listed. To try it, LOAD a program and 
then type the following lines in the direct mode: 

FOR X= PEEK (130) + 256*PEEK (131) TO PEEK (132) + 
256*PEEK (133): POKE X,0:NEXT X 

Now try and list the program! When you save the program 
again, it will be saved in an unlistable form. 





Here, in this small volume, in easy-to-understand form, Paul 
Bunn has brought together all the essential information you’ll 
need to improve your programming techniques on the Atari 
computers. 

From making the most of the graphics, to using sound and 
the joysticks or paddle, you’ll find the vital addresses, the 
important locations, the programming tricks to get your Atari 
to do just about anything you want it to do. 

And if you just want a generous collection of programs, in 
ready-to-run form, you’ll also find them in this book. From 
- BEETLE JUICE (you, as a small, red beetle, try to cross a 
busy street without being squashed) to DODGE ’EM (in 
which you use a joystick to drive your car around a maze, and 
avoid the computer’s car), there are programs for every taste 
and occasion. 

If you’ve come to the ‘What do I do now?’ stage with your Atari 
400 or 800, then you’re ready for Paul Bunn, and this book. 


Another great book from 
Interface Publications 


